VBA - Fonction Like

Bonjour,

Question toute bête je pense mais qui me bloque et pour laquelle je ne trouve pas de solutions ...

J'aimerais vérifier la présence d'une valeur (dans une variable) dans une variable, je procède donc de la façon suivante :

Code:

---

Test = Variable Like "*" & Valeur & "*"

---

Et le code ne se lance pas car il me dit qu'il y a une erreur type mismatch au niveau du like

Bonjour,
Pour tester l'existence d'une chaîne de caractères dans une autre utilise la fonction Instr ou InstrRev
Exemple

Code:

---

1 2 3

Dim maValeur As String maValeur = "Toto le héros" MsgBox InStr(maValeur, "héros")

---

Ces fonctions renvoient la position du premier caractère de la chaîne cherchée. O si pas trouvé

Avec Like

Code:

---

1 2 3

Dim maValeur As String maValeur = "Toto le héros" MsgBox IIf(maValeur Like "*" & "héro" & "*", "Trouvé", "Pas trouvé")

---

Bonjour Jujuseless, bonjour le forum,

J'ai écrit Jujuseless en A1, use en A2 et lancé le code ci-dessous :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Macro1() Dim test As Boolean Dim variable As String Dim valeur As String   variable = Range("A1").Value valeur = Range("A2").Value If variable Like "*" & valeur & "*" Then test = True MsgBox test End Sub

---

Modifie variable ou valeur et tu verras que ça marche....

Merci à tous les deux.

Ca fonctionne bien avec vos deux méthodes.