16 messages in org.openoffice.fr.progRE : [prog] macro VBA à transformer e...
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] macro VBA à transformer en BasicActions...
From:chaliapine (chal@free.fr)
Date:Jan 30, 2008 9:01:07 am
List:org.openoffice.fr.prog
Attachments:

KSandre

Apparemment tu as des applis qui tournent sur Excel/VBA et tu en migres certaines versOOo/Basic. Comme nombre d’entre nous. Et comme moi Ce forum n’étant pas juste un lieu où « y’a qu’à demander le code qui va bien te propose un fichier OOo que j’ai réalisé dernièrement et qui reprend un certain nombre de choses que je savais faire sous Excel, mais pas sous OOo, pensant que ça pourrait aider des gens ayant la même problématique. Et, à force de lire, de tester, d’interroger, bref de passer un certain temps à faire des essais, ça avance. En espérant que cela pourra t’aider dans tes projets à venir. Un autre forum très efficace : http://www.forum-openoffice.org/forum/

A bientôt certainement.

PS : concernant les boîtes de dialogue, voir dans le fichier joint les exos 4, 5 et 10

------------- Pascal PIERRE

-----Message d'origine----- De : Lixon-photo.com [mailto:cont@lixon-photo.com] Envoyé : mercredi 30 janvier 2008 17:23 À : pr@fr.openoffice.org Objet : Re: [prog] RE : [prog] macro VBA à transformer en Basic

ok super ça marche ........ merci beaucoup

je vais pousser un peu plus loin dans l'aide que vous m'apporterez ......... :

Si je veux en plus qu'une boite de dialogue me demande à quelle feuille je désire accéder pour travailler dessus........ Quel est le code à rentrer?

merci encore Ksandre

chaliapine a écrit : Re bonjour

Problème de versions ? Ou quelque chose dans une autre partie de ton code ?

Voici mon fichier. J’ai associé la macro à l’événement « lors du déclenchement » du bouton. Sur ma 2.3.1, aucun problème.

------------- Pascal PIERRE

-----Message d'origine----- De : Lixon-photo.com [mailto:cont@lixon-photo.com] Envoyé : mercredi 30 janvier 2008 14:55 À : pr@fr.openoffice.org Objet : Re: [prog] RE : [prog] macro VBA à transformer en Basic

lorsque que je vérifie le code, j'ai une erreur :

Run Time error Basic Une exception s'est produite: Type: com.sun.Star.container.noSuchElementException message :.

qu'eest-ce que cela veut dire?

chaliapine a écrit : Complément à mon message précédent.

Je n’avais pas mis le code pour effacer le contenu des cellules. Petite particularité de OOo, il faut une valeur associée à ClearContents. Ici j’ai mis 4 qui correspond à STRING. Il efface donc les chaînes de caractères (pas les formats ou valeurs numériques, Pour la liste exhaustive de ces valeurs, cf. SDK : http://api.openoffice.org/docs/common/ref/com/sun/star/sheet/CellFlags.h tml

Code complété: Sub nomDesFeuilles doc=thisComponent lesFeuilles=doc.sheets feuille1=lesFeuilles.getByName("Feuille1")

nbfeuilles=lesFeuilles.count

'effacer les cellules de la colonne A non vides ligne=1 while feuille1.getcellrangeByName("A" & ligne).string<>"" feuille1.getcellrangeByName("A" & ligne).clearcontents(4) ligne=ligne+1 wend

for i=1 to nbfeuilles nomFeuille=lesFeuilles.getByIndex(i-1).name feuille1.getcellrangeByName("A" & i).setString(nomFeuille) next

End Sub

Bien cordialement.

------------- Pascal PIERRE (alias Chaliapine)

-----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

--

_____

--------------------------------------------------------------------- To unsubscribe, e-mail: prog@fr.openoffice.org For additional commands, e-mail: prog@fr.openoffice.org

--