16 messages in org.openoffice.fr.progRe: [prog] RE : [prog] macro VBA à tr...
FromSent OnAttachments
Lixon-photo.comJan 30, 2008 1:56 am 
c.ma...@univitis.frJan 30, 2008 2:02 am 
m.gr...@cnafmail.frJan 30, 2008 2:16 am 
Serge LE LOUARNEJan 30, 2008 2:51 am 
Laurent GodardJan 30, 2008 2:55 am 
Laurent GodardJan 30, 2008 2:56 am 
chaliapineJan 30, 2008 5:14 am 
chaliapineJan 30, 2008 5:37 am 
Lixon-photo.comJan 30, 2008 5:38 am.jpg
Lixon-photo.comJan 30, 2008 5:52 am.jpg
Lixon-photo.comJan 30, 2008 5:54 am.jpg
chaliapineJan 30, 2008 6:13 am.jpg, .ods
Lixon-photo.comJan 30, 2008 8:22 am.jpg
chaliapineJan 30, 2008 9:01 am.jpg, .ods
Lixon-photo.comJan 30, 2008 9:42 am.jpg
Serge LE LOUARNEJan 30, 2008 12:40 pm 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] RE : [prog] macro VBA à transformer en BasicActions...
From:Lixon-photo.com (cont@lixon-photo.com)
Date:Jan 30, 2008 5:38:11 am
List:org.openoffice.fr.prog
Attachments:

je te remercie .. ;je vais essayer ça.... je vous tiens au courant

merci beaucoup Ksandre

chaliapine a écrit :

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:cont@lixon-photo.com] *Envoyé :* mercredi 30 janvier 2008 10:57 *À :* pr@fr.openoffice.org *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

--