VBA : Ouvrir Userform a partir d'une Combobox

[Joulsy]

Bonjour à tous
J'ai une Combobox avec 2 Choix possible (pour l'instant) et je voudrais que la selection de l'1 ou de l'autre m'ouvre un userform qui lui est propre.

Voilà ce que j'ai pour l'instant:

Private Sub ComboBox1_Change()
If .ComboBox1.Text = "Relogement" Then Relogement1.Show
End If
End Sub

En gros je veux rajouter :

If .ComboBox1.Text = "Retiraison" Then Retiraison.Show

Mais il me manque la syntaxe correcte.

Merci de votre aide

 

[Pierrot93]

Re : VBA : Ouvrir Userform a partir d'une Combobox

Bonjour,

essaye ceci, supposant un combo sur une feuille de calcul, le code ci-dessous dans le module de la feuille en question :

Option Explicit
Private Sub ComboBox1_Click()
With ComboBox1
    If .ListIndex <> -1 Then UserForms.Add(.Value).Show
End With
End Sub

bonne soirée
@+

 

[Joulsy]

Re : VBA : Ouvrir Userform a partir d'une Combobox

Ca marche nickel mais en collant ce code dans la partie du Userform qui contient le combo.
Encore merci !

 

[Pierrot93]

Re : VBA : Ouvrir Userform a partir d'une Combobox

Re,

mais en collant ce code dans la partie du Userform qui contient le combo.

si combo dans autre userrform, oui bien sur...

 

[Joulsy]

Re : VBA : Ouvrir Userform a partir d'une Combobox

yep mais avec mon niveau, il fallait que je le comprenne
merci