[VBA-W] Evénement sur bouton créé dynamiquement [Résolu]

[ptilo]

Bonjour à tous,

Bon je vais essayer d'être le plus clair possible mais si vous voulez d'autres infos pour comprendre, n'hésitez pas.

Je suis entrain de faire une interface qui est créée dynamiquement à partir d'un fichier XML. Au départ la macro contient une feuille de base qui contient un multipage et quelques boutons pour évoluer (suivant, quitter...). Ensuite, la macro ouvre un fichier XML contenant les infos permettant de savoir quel controles on veut insérer dans l'interface, à quel endroit... Jusqu'à maintenant j'ai mis des comboBox, textBox, Label... et pas de souci mais maintenant je veux pouvoir insérer des commandButton et qu'il réagisse au click.
Pour l'insertion des boutons, pas de problème et j'arrive à associer à un bouton une procédure réagissant au clic (que j'ai d'ailleurs réussi à faire à partir d'infos trouvées sur les forum!) de cette manière :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private WithEvents monBouton As CommandButton
 
Private Sub monBouton_Click()
...
End Sub
 
'Procédure contenant la création du bouton
Private Sub CreerBlocParcourir(indexPage As Integer, _
                               nomOnglet As String, _
                               labelQuestion As String, _
                               indiceQuestion As String)
...
'Création du bouton
Set monBouton = FormAssistant.MultiPage(indexPage).controls.Add _
                ("Forms.CommandButton.1", _
                 "parcourir" + nomOnglet + indiceQuestion)
...
End Sub

Donc ceci fonctionne très bien mais que pour un seul bouton, si l'on en insère plusieurs, seul le dernier inséré ne réagi au clic.
Donc voilà mon problème, comment faire pour que cela fonctionne en insérant plusieurs boutons ?
Après pas mal de recherches sur les forum et pas mal de tentatives non concluante, je poste ce message en espérant que quelqu'un ai une solution (ou même des idées)

Merci par avance de votre aide

Ptilo

[ptilo]

Re-bonjour,

juste une petite précision au cas ou cela soit utile, je travaille sous word 2000.

Ptilo

[zebulon2212]

moi g créer un menu dynamique en vba; si ca marche de la meme facon essaye de remplir la propriété onaction.
ex :

Code :

1
2
3
4
5
6
Set NewButton = NewSubIntervenantMenu.Controls.Add(Type:=msoControlButton)
With NewButton
    .Caption = "Ajouter"
    .FaceId = 1970
    .OnAction = "AjouterIntervenant"
End With

je precise que AjouterIntervenant est une procedure du meme module

Penser aux balises Code (bouton #)
ajoutées par ouskel'n'or

[SilkyRoad]

bonjour

tu pourrais par exemple utiliser une collection pour gérer les différents CommandButton créés dynamiquement

http://www.developpez.net/forums/sho...lic+Collect%22

le lien concerne un UserForm dans Excel mais le principe reste le meme


bonne soiree
michel

[ptilo]

Bonjour,

Merci pour vos réponses, elles m'ont l'air très intéressentes, je crois que ca va bien m'aider. Pour l'instant je suis passer à autre chose (mon appli permet d'insérer qu'un seul bouton pour l'instant) mais j'y revient dessus et je vous tient au courant des résultat dès que j'ai un peu de temps.

Ptilo

[ptilo]

Re bonjour,

je suis entrain de regarder vos propositions,
concernenant le "onAction", cette propriété concerne seulement les controles de types menu donc pas possible pour mes commandButton.

concernant le module de classe, ca me parait pas mal du tout, je n'ai pas encore eu le temps de regarder en détail mais le fait de créer des classes m'intéresse beaucoup (ayant fait de la prog objet) or je ne savait pas qu'on pouvait faire ca en vba (c'est pas le premier truc qu'est indiqué dans les forum et tutos et même dans un gros bouquin de VBA que j'ai acheté et que je n'aurait pas du !!!)

A + quand j'ai plus de détails et merci encore à vous 2

Ptilo

[ouskel'n'or]

Si tes boutons sont sur une feuille de calcul, regarde aussi à OLEObjects et Application.caller (qui permet de récupérer le nom du bouton)
Tu as 10 posts qui en traitent sur le forum VBA avec Application.caller comme mot clé. commence par là :
http://www.developpez.net/forums/sho...ication.cal%2A

[ptilo]

Salut,

t'as réponse n'est pas applicable dans mon cas puisque je travaille en VBA Word et mes boutons sont sur une Form.
Merci quand même de l'interêt que tu as porté à ma question.

Je suis entrain de m'intéresser aux indications de "SilkyRoad" avec lesquelles je devrait pouvoir faire quelque chose, je vous tient au courant.

A +

Ptilo

[ptilo]

Bon je suis entrain de tester le code du lien de "SilkyRoad" mais j'ai des erreurs avec la collection, je pense que dans ton cas c'est sous excel donc est ce que ce type de collection fonctionne de la même façon sous word avec des UserForm (0 la place des feuilles excel) ?

Je vais chercher mais je pose la question au cas ou la réponse soit négative, ca m'éviterai de chercher dans cette voie la pour rien !

A +

Ptilo

[ptilo]

Ca y est ca fonctionne nickel (l'erreur venait du fait que j'avais oublié de faire le "new" concernant la collection).
Merci bien pour votre aide.

A +

Ptilo