Discussion :

[dodo69]

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 :

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

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

[pgz]

Bonjour.

Tu peux faire avec une collection, comme cela

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

[dodo69]

Merci beaucoup pgz,
ca marche

Cdt
DoDo