Lancer un formulaire dont le nom est dans une variable

Bonjour,
je voudrais charger, éditer et lancer un formulaire. Si son nom est fixe, c'est facile. Si son nom est dans une variable, ça se complique. Le code suivant ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub LanceFormulaire(NomFormulaire As String) Dim Formulaire As UserForm   Set Formulaire = VBA.UserForms.Add(NomFormulaire) Formulaire.Caption = NomFormulaire Formulaire.Show ' <-- ICI il y a une erreur   End Sub Sub Essai() LanceFormulaire "UserForm1" End Sub

---

L'erreur est que mon objet UserForm n'a pas de méthode show.

bonjour

Le probleme viens peut etre que tu redim l'object

Code:

---

1 2	Sub LanceFormulaire(NomFormulaire As String)'ici l'object est dimentionné deja Dim Formulaire As UserForm' donc ceci n'est pas necessaire

---

on fairait plutot comme ceci:

Code:

---

1 2 3 4 5 6 7

sub lance_un_userform() declanche userform1 end sub   function declanche(usf as object) usf.show 0 end function

---

au plaisir

Bonjour,
le problème ne vient pas du redimensionnement. La variable NomFormulaire est bien une chaine de caractères (String) qui contient le nom du formulaire.
Mais ta réponse m'a mis sur le voie et j'ai enfin trouvé la solution.
En fait, Microsoft a oublié de déclarer les méthodes Show et Hide dans la classe "UserForm". Et pour la compatibilité ascendante, il a maintenu son erreur dans les versions successives d'Excel.
Il suffit d'utiliser la classe beaucoup plus générique mais complète "Object".

Le code devient :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub LanceFormulaire(NomFormulaire As String) Dim Formulaire As Object ' au lieu de UserForm   Set Formulaire = VBA.UserForms.Add(NomFormulaire) Formulaire.Caption = NomFormulaire Formulaire.Show ' <-- ICI ça marche !!!   End Sub Sub Essai() LanceFormulaire "UserForm1" End Sub

---

Merci, je passe le sujet à Résolu

bonjour
Je ne vois pas l'interet de dimentionner un string en object par le "set"
surtout si on peut injecter la variable object directement dans la fonction
mais c'est toi qui vois lol!!!
Au plaisir

Bonjour,
ce n'est pas le "String" qui est redimensionné par le Set, c'est "l'Object".

Dans la réalité, la ligne suivante :

Code:

---

Formulaire.Caption = NomFormulaire

---

ressemble plutôt à :

Code:

---

CodeRetour = ConfigureFormulaire (Formulaire, Contexte)

---

J'ai donc besoin d'un "pointeur" sur mon formulaire pour le passer en paramètre à une fonction.

Cordialement.