Discussion :

[eric4459]

Bonjour à tous

Je rencontre un problème avec la fonction Like.
Je souhaite vérifier si le texte d'une TextBox située sur un UserForm est inclus dans une chaîne de caractère située dans une Cellule.
Par exemple, dans ma TextBox je saisi le mot "armoire", dans ma cellule A1 j'ai saisi "Remplacer l'armoire de la chambre"

SI j'écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("A1") Like "*armoire*" then

je valide ma condition.

Si par contre j'écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("A1") Like "*UserForm1.TextBox1.Text*"

ma condition n'est pas reconnue.

J'ai également essayé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Mot As String
Set Mot = ("UserForm1.TextBox1.Text").
If Range("A1") Like "*Mot*" then

Dans ce cas lorsque je teste mon code, au démarrage j'ai un message d'erreur

Erreur de Compilation
Objet Requis

qui pointe sur Mot dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Mot = ("UserForm1.TextBox1.Text")

Quelqu'un a-t-il une idée sur la façon de résoudre mon problème?

Merci pour aide
Eric

[casefayere]

bonjour,

esaayes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Mot As String
Mot = UserForm1.TextBox1.Text
If Range("A1") Like "*" & Mot & "*" Then

[eric4459]

Bonjour Dom
C'est exactement cela,
Eric