Userfome ComboBox

Bonjour,

voici mon code

Private Sub ComboBox11_Change()
If ComboBox11 <> "" Then

End If

TextBox1 = fr.Cells(ComboBox11.ListIndex + 1, 5)
ComboBox5 = fr.Cells(ComboBox11.ListIndex + 1, 1)
ComboBox7 = fr.Cells(ComboBox11.ListIndex + 1, 4)

End Sub

je recherche avec la ComboBox11 les nom qu'il y a dans la colonne E ça fonctionne, mais si je me trompe ou si j'écris une lettre qui n'excite pas dans cette colonne il me mais une erreur (1004).

j'aimerai faire : s'il je trouve la valeur dans la ComboBox11 il continu le code mais si il ne trouve pas, il se passe rien (car la il ce mais en erreur 1004 actuellement).

merci pour votre aide.

bonne journée

Bonjour,

Pour cela utilise la propriété ListIndex de ta Combobox :

Private Sub ComboBox11_Change()
If ComboBox11 <> "" Then
'JE NE SAIS PAS TROP A QUOI CA TE SERT...
End If
If ComboBox11.ListIndex >= 0 Then
TextBox1 = fr.Cells(ComboBox11.ListIndex + 1, 5)
ComboBox5 = fr.Cells(ComboBox11.ListIndex + 1, 1)
ComboBox7 = fr.Cells(ComboBox11.ListIndex + 1, 4)
End If
End Sub

Bonjour PIJAKU

merci pour ton aide cela fonctionne

quand je me trompe dans ma recherche il me fait erreur 1004 donc obligé de revenir sur ma feuille et de re cliquer sur le bouton perte de temps

en merci :)