VBA Excel : Appel d'un userform à l'aide d'une variable

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

Code:

---

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

Tu ne peux pas convertir une chaine en formulaire

Code:

---

CallByName UserForm1, "show", VbMethod

---

CallByName en VBA :?:

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

Chouette, je vais me coucher un peu moins bourricot.

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:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() Dim p As String   p = "UserForm1" CallByName p, "show", VbMethod     End Sub

---

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

Code:

---

userform.show

---

fonctionne tres bien[/code]

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.

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

comme çà?

Code:

---

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

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:

---

Public duser as object

---

ensuite dans un userform :

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() Set duser = UserForm3 Unload Me UserForm2.Show End Sub

---

puis dans l'userform2 :

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Unload Me duser.Show End Sub

---

le résultat va être l'ouverture de l'Userform3 :D 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. :cry:

bonjour

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

Code:

---

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

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