[prog] RE : [prog] macro VBA à transformer en Basic

Wed, 30 Jan 2008 05:14:39 -0800 

Bonjour
 
A première vue il s’agit d’écrire dans des cellules le nom des
différentes feuilles du classeur, non ?
Si c’est bien ça, voici un exemple d’une procédure BASIC qui cherche le
nombre de feuilles du classeur.
Pour chacune d’elles, on récupère le nom.
On l’écrit dans la cellule de la colonne A :
 
Script :
Sub nomDesFeuilles
      doc=thisComponent
      lesFeuilles=doc.sheets
      feuille1=lesFeuilles.getByName("Feuille1")
      
      nbfeuilles=lesFeuilles.count
 
      for i=1 to nbfeuilles
            nomFeuille=lesFeuilles.getByIndex(i-1).name
            feuille1.getcellrangeByName("A" & i).setString(nomFeuille)
      next
 
End Sub
 
-------------
Pascal PIERRE
 
-----Message d'origine-----
De : Lixon-photo.com [mailto:[EMAIL PROTECTED] 
Envoyé : mercredi 30 janvier 2008 10:57
À : [email protected]
Objet : [prog] macro VBA à transformer en Basic
 
 
Bonjour à tous et toutes,

    J'ai besoin de votre aide afin de transformer une macro VBA en Basic
afin qu'elle fonctionne dans mon classeur Calc

Voici le code VBA:

       Sub FeuilleMalListes()
             dim I As Integer
             On Error GoTo ErrorTrap
'feu1 est le nom attribué à la cellulue A2 dans la feuille '12 Feuilles'
'

             Range(Range("Feu1"),
Range("Feu1").End(xlDown)).ClearContents
                      For I = 1 To Sheets.count
                            Range("Feu1"). Offset(I - 1, 0).Value =
Sheets(I).Name
                      Next I
ErrorTrap:
       Exit Sub
End Sub

 J'attends avec impatience vos lumières, car ne connaissant pas bien le
langage, je ne vois pas quoi changer pour que le code fonctionne.

D'avance Merci
         Ksandre

Répondre à