Appel d'un Userform en fonction d'une combobox

Bonjour,

je rencontre un problème dans ma programmation.

J'ai créé plusieurs userform (1 par type de produit) avec un contrôle image dessus.

Sur le UserForm "principal" l'utilisateur remplit des combobox. Selon le choix fait dans la 2ème combobox, je voudrais appeler l'Userform qui a le même nom.

Savez-vous comment je peux faire ça ?

Merci d'avance pour votre aide !!

Antonin

Bonjour

En supposant que la combobox de votre userform est nommée : "Combobox1"

Vous mettez ceci dans votre userform

Private Sub ComboBox1_Change()
Dim usf as string
usf = ComboBox1.Value
UserForms.Add(usf).Show
End Sub

Si ok, mercci de cloturer le fil en cliquant sur le petit v en haut à droite

Cordialement

Bonjour,

Merci pour la réponse Dan !

J'ai essayé mais je rencontre un problème sur la ligne UserForms.Add, un message d'erreur s'affiche me disant de rajouter un objet.

Étant novice en VBA, il se peut que j'ai oublié un détail évident

re

En dessous de cette ligne -> usf = ComboBox1.Value

Mettez ceci :

msgbox usf

Cela vous renvoie quoi ?

Sinon mettez votre fichier en ligne (sans données confidentielles), ce sera plus facile

Re

Je vous met le fichier en pj. J'avoue ne pas comprendre l'erreur.

9prog-forum.xlsm (571.94 Ko)

Bonjour,

Le nom, dans la combobox, contient des espaces.

Tu ne l'avais pas vu???

Remplacer :

UserForms.Add("P_" & usf).Show

Par :

UserForms.Add("P_" & Replace(usf, " ", "")).Show

Re

Je vous met le fichier en pj. J'avoue ne pas comprendre l'erreur.

Comme vous a proposé pijaku...

Autre solution, vous enlevez tous les espaces dans votre feuille DONNEES. Alors ce que vous ai proposé fonctionnera

Evitez les espaces, les accents. Cela plante toujours à un moment ou un autre avec la programmation. Je l'écris presque tous les jours sur ce forum

Cordialement

Effectivement j'ai raté les espaces, on va mettre ça sur le compte de la fatigue

Merci à vous deux pour votre aide !!

Antonin

Rechercher des sujets similaires à "appel userform fonction combobox"