Discussion :

[jnauche]

Bonjour,

Depuis une macro, je lance mon userform

Code :

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

1
2
3
4
5
6
7
 
Sub ChoixMulti()
 
UserForm1.Show
Test = NumeroBouton
 
End Sub

Puis mon userform fait le boulot (je récupère la numéro du bouton qui a été cliqué par l'utilisateur)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CommandButton1_Click()
For x = 1 To 4
    If Controls("optionbutton" & x) = True Then
        NumeroBouton = x
        Exit For
    End If
Next
 
UserForm1.Hide
 
 
End Sub

Par contre, comment je récupère la valeur de ma variable "NumeroBouton" dans ma macro?

Merci d'avance pour votre retour

[Invité]

Bonjour,

En déclarant Public la variable NumeroBouton dans un module standard.

[jnauche]

Bonjour,

En déclarant Public la variable NumeroBouton dans un module standard.

Bonjour Eric,

Merci pour cette réponse mais mes connaissances limitées ne me permettent pas de savoir ce que cela implique.

Je dois comprendre que dans ma macro ChoixMulti, je dois ajouter un

Code :

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

dim NumeroBouton

Merci.
Julien.

[Invité]

Essayez :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Public NumeroBouton As Integer
 
Sub ChoixMulti()
 
UserForm1.Show
Test = NumeroBouton
 
End Sub

[Thumb down]

bonjour,

Code :

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

1
2
3
4
Sub test()
MsgBox UserForm1.NumeroBouton
Unload UserForm1
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private NBouton As Integer
Public Function NumeroBouton() As Integer
Me.Show vbModal
NumeroBouton = NBouton
 End Function
Private Sub CommandButton1_Click()
For x = 1 To 4
    If Controls("optionbutton" & x) = True Then
        NBouton = x
        Exit For
    End If
Next
 UserForm1.Hide
End Sub