Private Sub ComboBox1_Change()
Dim ste As Range
For Each ste In Sheets(2).Range("a3:a100")
If ste.Value = ComboBox1.Value Then
X = Sheets(2).Cells(ste, 1).Value
End If
Next ste
MsgBox X
End Sub
apparement trés simple, quand j'execute mon Userform, il me marque erreur: incompatibilité de type 13
Pour info: les valeurs du range("a3:a100") sont du texte.