Variable type UserForm à initialiser avec nom variable

Bonjour,

J'essaye d'attribuer à une variable de type UserForm un autre UserForm dont le nom est un String.

J'ai crée une classe Piece ayant entre autres la propriété Typ
Des formulaires existent pour chaque type de pièce et portent le nom du type.

Code:

---

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

'   Public FormulairePrincipal As UserForm   '------------------------------------------------------------------- 'INITIALISATION Sub init(PieceAuto As Piece)   MaPiece = PieceAuto 'Et là c'est le drame, il me faudrait une méthode UserFormDontLeNomEst FormulairePrincipal = UserFormDontLeNomEst(MaPiece.Typ)   End Sub

---

Cette discussion ressemble un peu à celle-ci http://www.developpez.net/forums/d36...aide-variable/ mais je ne vois pas comment l'adapter.

Merci d'avance

Bonjour,

Tu n'es pas très précis.
Le UserForm est-il déjà ouvert ou bien cherches-tu à ouvrir un UserForm ?

Je fais l'hypothèse que tu veux ouvrir un UserForm dont le nom est connu:

Code:

---

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

Option Explicit   Public FormulairePrincipal As UserForm   '------------------------------------------------------------------- 'INITIALISATION Sub init(PieceAuto As Piece)   MaPiece = PieceAuto 'Et là, plus de drame ;-) Set FormulairePrincipal = UserForms.Add(MaPiece.Typ)   End Sub

---

Oui, le UserForm est connu. Mais je ne cherche pas encore à l'ouvrir.

Je veux ouvrir FormulairePrincipal qui aura pris la valeur du formulaire que je veux ouvrir.

UserForms.Add(blahblah) est bien objet UserForm qui porte le nom blahblah (j'ai vérifié parce que je ne trouvais pas le nom de la méthode explicite... add et rien ne s'ajoute ...)

Plus de problème de compilation, Merci JBO