Discussion :

[Biloudev]

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 :

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

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

Et dans le code du UserForm :

Code :

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

Private Sub UserForm_Initialize(vVariableSelonBoutonCliqué As String)

Je ne sais pas si je suis sur la bonne piste

Merci pour votre aide

[Philippe Tulliez]

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 :

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

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

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

[Biloudev]

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