Discussion :

[pierrot657]

Bonjour,
Après de multiples essais et recherches je n'arrive toujour pas à ouvrir un userform à partir d'une variable.

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Dim p As String
 
p = "UserForm1"
p.Show
 
End Sub

si quelqu'un a une proposition, je suis preneur!
Merci

[bidou]

Tu ne peux pas convertir une chaine en formulaire

[ThierryAIM]

Code :

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

CallByName UserForm1, "show", VbMethod

[bidou]

CallByName en VBA :

[ThierryAIM]

Yes, Sir, j'ai testé justement, car j'avais un doute (excel 2000)

[bidou]

Chouette, je vais me coucher un peu moins bourricot.

[pierrot657]

j'ai essayé mais ça ne marche pas. ça marche avec un nom d'userform mais pas si celui ci est donné dans la variable.

voilà ce que j'ai essayé :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim p As String
 
p = "UserForm1"
CallByName p, "show", VbMethod
 
 
End Sub

[Vanesse]

pourquoi tiens tu absolument a passer par une variable : :
juste

Code :

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

userform.show

fonctionne tres bien[/code]

[pierrot657]

tout simplement parce que selon la valeur de la variable l'userform à ouvrir ne sera pas le même.

Je veux faire des succession d'userform dont l'enchainement dépend des précédents.

Par exemple la variable pourra être le nom d'un userform qui avait été ouvert précédemment.

[Catbull]

Dans ce cas pourquoi utiliser une variable de type String? Utilise une variable de type UserForm et sauvegarde la référence de ton formulaire...

[pierrot657]

comme çà?

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Dim p As UserForm
p = "UserForm1"
CallByName p, "show", VbMethod
 
 
End Sub

çà ne marche pas

[pierrot657]

Je viens de trouver un truc qui marche pas mal mais il reste un problème.
Il faut tout d'abord définir une variable publique dans le module ex :

Code :

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

 Public duser as object

ensuite dans un userform :

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
Set duser = UserForm3
Unload Me
UserForm2.Show
End Sub

puis dans l'userform2 :

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Unload Me
duser.Show
End Sub

le résultat va être l'ouverture de l'Userform3 sauf si l'userform 3 était celui de départ!, j'obtiens alors un message d'erreur qui doit correspondre au fait que la première sub (dans l'userform3) n'est pas encore terminée et que, du coup il y a une erreur automation.

[michelxld]

bonjour

Pierrot , si je reprends l'exemple dans ton premier message , tu peux essayer

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
Dim maVariable As String
maVariable = "UserForm1"
VBA.UserForms.Add(maVariable).Show
End Sub

bonne soiree
michel

[pierrot657]

Merci pour la réponse, maintenant ça me fait deux façons différentes d'y arriver.