renvoyer ok si une des mots d'une cellule est saisi dans une textbox

[Liloo14]

Bonjour à tous,
J'ai une userform avec une textbox et un bouton de validation.
L'utilisateur saisi un mot dans la textbox et valide.
Si ce qu'il a saisi correspond exactement au contenu de la la cellule de référence j'ai OK, sinon j'ai ERREUR par la formule classique suivante :

If TextBox1 = Sheets("Feuil1").Range("A1") Then
Label1 = "OK"
Else
Label1 = "ERREUR"
End If

Ma question est, si la cellule de référence contient "la voiture" et que l'utilisateur saisi uniquement "voiture", comment dois-je modifier mon code pour que la réponse soit OK tout de même ?

En fait, j'aimerais que la réponse soit bonne quand même si l'utilisateur saisi un des mots contenu dans la cellule référence.

Merci par avance à ceux qui m'aiguilleront.
Laurent

 

[Pierrot93]

Re : renvoyer ok si une des mots d'une cellule est saisi dans une textbox

Bonjour,

essaye peut être comme suit :

If Sheets("Feuil1").Range("A1") Like "*" & TextBox1 & "*" Then

bonne journée
@+

 

[Liloo14]

Re : renvoyer ok si une des mots d'une cellule est saisi dans une textbox

Merci beaucoup Pierrot
Bonne journée