Passer une valeur variable à un UserForm depuis un Bouton d’une feuille

Bonjour

J’aimerais pouvoir passer une valeur variable à un UserForm depuis un Bouton d’une feuille
La valeur de la variable sert à modifier quelques paramètres du User Form

Concrètement, j’ai 3 boutons sur la feuil1 : "Demande", "Synthèse", "Résultat"
Chaque bouton ouvre un UserForm qui est quasiment identique
C’est justement parce que le UserForm est "quasiment" identique que j’aimerai initialiser le UserForm selon le bouton Cliqué depuis Feuil1 (cela évite d’avoir 3 UserForms). Dans le UserForm, je voudrais utiliser la variable pour réaliser des actions différentes (ex : afficher la plage "Demande" ou "Synthèse" ou "Résultat" dans une ListBox)

Mon idée (mais qui ne fonctionne pas), passer par la Sub "UserForm_Initialize"

Affecter aux boutons de la feuil1 la macro "module.ouvrirUserForm"
La Sub contient (code simplifié):

Code:

---

1 2 3

vVariableSelonBoutonCliqué = "Demande" ou "Synthèse" ou "Résultat" MonUserForm.UserForm_Initialize vVariableSelonBoutonCliqué MonUserForm.Show

---

Et dans le code du UserForm :

Code:

---

Private Sub UserForm_Initialize(vVariableSelonBoutonCliqué As String)

---

Je ne sais pas si je suis sur la bonne piste

Merci pour votre aide

Bonjour,
Si vous utilisez trois boutons ActiveX, ce sont des objets totalement indépendant qui ont leurs propres propriétés et événements donc il suffit dans la procédure événementielle Click de chaque bouton d'invoquer le UserForm et lui passer un paramètre

Soit dans la feuille où se trouve les boutons

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit Private Sub cmdDemande_Click() With UserForm1 .MaVariable = 0 .Show End With End Sub Private Sub cmdSynthese_Click() With UserForm1 .MaVariable = 1 .Show End With End Sub Private Sub cmdResult_Click() With UserForm1 .MaVariable = 2 .Show End With End Sub

---

Le code du UserForm

Code:

---

1 2 3 4 5 6 7 8

Option Explicit Public MaVariable As Byte   Private Sub UserForm_Activate() Dim msg As Variant msg = Array("Demande", "Synthèse", "Résultat") Me.Caption = "Formulaire de " & msg(MaVariable) End Sub

---

Mais il y a évidemment d'autres solutions

J'utilisais les Contrôles de Formulaire

Les Contrôle ActiveX répondent parfaitement à mon besoin

D'ailleurs l'utilisation des Contrôles ActiveX m'ouvre de nouvelles perpectives!

Merci pour cette solution