Discussion :

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

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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