Probleme avec la fonction if-then-else

bonjour à tous,

Voila j'ai un petit soucis, je souhaiterais , selon la valeur dans une combobox,, soit ouvrir et sélectionner la valeur présente dans une colonne présente dans une autre feuille, soit dans le cas ou la valeur de la combobox n'existe pas dans la colonne lancer un userform dans une autre feuille encor. Pour cela j'utilise la méthode if-then-else, mais cela me lance les deux solution en même temps. voila mon code:

Private Sub CommandButton3_Click()

BDD.Select

If IsNull(Usf.ComboBox1) Then

MsgBox "Vous devez sélectionner un équipement."

Usf.ComboBox1.SetFocus

Exit Sub

End If

With BDD

For i = 7 To .Range("B" & Rows.Count).End(xlUp).Row

If .Cells(i, 2) = Usf.ComboBox1.Value Then

Cells(i, 2).Select

Else: MsgBox "Equipement introuvable"

ajout.Visible = True

ajout.Select

creer.Show

Exit For

End If

Next i

End With

Unload Usf

End Sub

BDD et ajout sont des feuilles et créer est une userform, avez vous une idée de la source de mon problème?

Merci d'avance

cordialement

max

Bonjour,

Escusez-moi... voila

Rechercher des sujets similaires à "probleme fonction then else"