montrer un userform

Bonjour le forum,

J'expose mon problème.
J'utilise une fonction randomize pour trouver un numéro de 1 à 10.
J'ai 10 Userforms appelés "UserForm1, UserForm2, userForm3 ..... )

J'aimerai afficher le Userform selon le numéro tiré au hasard.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub choix_alea()   Dim choix1 As Long Dim choix2 As Long   choix1 = Application.RoundUp(Rnd() * 10, 0)   "UserForm" & choix1.show     End Sub

---

Merci d'avance pour votre aide, en espérant que ca soit possible
Cordialement
DoDo

Bonjour.

Tu peux faire avec une collection, comme cela

Code:

---

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

Sub choix_alea() Dim choix1 As Integer Dim oCol As VBA.Collection   Set oCol = New VBA.Collection   oCol.Add UserForm1, "1" oCol.Add UserForm2, "2" 'comme cela jusqu'à 10   choix1 = Int(10 * Rnd + 1)   oCol(choix1).Show   Set oCol = Nothing End Sub

---

Cordialement,

PGZ

Merci beaucoup pgz,
ca marche

Cdt
DoDo