Problème Fonction Like

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:

---

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

---

je valide ma condition.

Si par contre j'écris

Code:

---

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

---

ma condition n'est pas reconnue.

J'ai également essayé ceci:

Code:

---

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

Citation:

---

Erreur de Compilation
Objet Requis

---

qui pointe sur Mot dans

Code:

---

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

bonjour,

esaayes

Code:

---

1 2 3

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

---

Bonjour Dom
C'est exactement cela, :merci:
Eric