Récupérer la valeur d'un userform dans ma macro

Bonjour,

Depuis une macro, je lance mon userform

Code:

---

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:

---

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

Citation:

---

Envoyé par jnauche

---

Bonjour,

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

Citation:

---

Envoyé par Eric KERGRESSE

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:

---

dim NumeroBouton

---

Merci.
Julien.

Citation:

---

Envoyé par jnauche

---

Essayez :

Code:

---

1 2 3 4 5 6 7 8 9 10

Public NumeroBouton As Integer   Sub ChoixMulti()   UserForm1.Show Test = NumeroBouton   End Sub

---

bonjour,

Code:

---

1 2 3 4

Sub test() MsgBox UserForm1.NumeroBouton Unload UserForm1 End Sub

---

Code:

---

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

---