Bonjour,
En remplaçant
1 2
| If Cells(i, 1) Like "*" & Me.TextBox1 & "*" _
And Cells(i, 6) Like TextBox2 Then |
par
1 2
| If Cells(i, 1) Like "*" & Me.TextBox1 & "*" _
And InStr(Cells(i, 6), Me.TextBox2) Then |
cela semble fonctionner.
En effet la fonction Like va rechercher une partie d'une chaîne de caractère or TextBox2 n'est pas une chaine de caractère mais une variable.
Si dans ta cellule A1 il y a la valeur "ABRACADABRA" la ligne suivante sera vrai
If Range("A1") Like "*BRACA*Then
Par contre si tu as en A1 une variable nommée "Tartempion" et que tu donnes à "Tartempion" la valeur "ABRACADABRA" alors la ligne suivante ne sera pas vérifiée
If Range("A1") Like "Tartenpion"Then
( Le forum dites-moi si je me trompe)
Eric
Partager