Discussion :

[juluseless]

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 :

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

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

[Philippe Tulliez]

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

Code :

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

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 :

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

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

[Thautheme]

Bonjour Jujuseless, bonjour le forum,

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

Code :

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

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....

[juluseless]

Merci à tous les deux.

Ca fonctionne bien avec vos deux méthodes.