Bonjour,
Mon code est simple mais ne fonctionne pas.
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.
Quelqu'un aurait-il une idée ?
Merci
Mon code est simple mais ne fonctionne pas.
Code:
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 Subapparement 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.
Quelqu'un aurait-il une idée ?
Merci