VBA - utilisation de 'not like'

Bonjour,

Je souhaiterais utiliser une fonction qui détecte si une variable ne contient pas le caractère "[" et sortir de la boucle for (elle englobe la boucle si en fait) si la variable ne contient pas le crochet.

Je suis donc partie sur la formule suivante, n'ayant pas réussi à faire le "not like" (là aussi je suis preneur :D )

Code:

---

1 2 3 4

If strCherche Like "*[*" Then Else Exit For End If

---

Mais cette formule tourne mais ne marche pas, le crochet n'étant pas détecté.
L'aide dit qu'il faut mettre les crochets (et autres caractères spéciaux) entre crochets, mais j'ai essayé différentes mises entre crochets... en vain.

Si qqn a une idée ou solution, je suis preneur.

Code:

---

if instr(strCherche ,"[")=0 Then

---

Citation:

---

Mais cette formule tourne mais ne marche pas, le crochet n'étant pas détecté.
L'aide dit qu'il faut mettre les crochets (et autres caractères spéciaux) entre crochets, mais j'ai essayé différentes mises entre crochets... en vain.

---

Effectivement.
Essaye ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim strCherche As String strCherche = "ab[ba" Dim i As Long   For i = 1 To 2 If strCherche Like "*[[]*" Then ' OK MsgBox "OK" Else ' Quitte la boucle Exit For End If Next

---

... en encadrant ton caractère spécial par un crochet fermant/ouvrant.

Je mettrai quand meme l'argument vbTextCompare en plus dans ta fonction Robert :P

Code:

---

if instr(strCherche ,"[",vbTextCompare)=0 Then

---

sait-on jamais :mrgreen:

Citation:

---

Envoyé par illight

Je mettrai quand meme l'argument vbTextCompare en plus dans ta fonction Robert :P

Code:

---

if instr(strCherche ,"[",vbTextCompare)=0 Then

---

sait-on jamais :mrgreen:

---

Merci pour vos réponses.

Après tests, j'ai retenu la réponse de Nouveau2 qui marche très bien (c'était pas si difficile au finale :) ).

Pour instr, cela ne semble pas reconnaître le crochet, ça marque "type incompatible "quand on éxécute la macro au pas à pas, avant de faire planter celle-ci.

Bonsoir,

La fonction Instr marche très très bien avant acquiescement ;)

Pour preuve :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub recherche()   Dim strCherche As String strCherche = "ab[ba" Dim i As Long   For i = 1 To 2 If InStr(strCherche, "[") <> 0 Then MsgBox InStr(strCherche, "[") Else ' Quitte la boucle Exit For End If Next End Sub

---

renvoie un superbe "3"

Cordialement,

Ah oui parfait également, je préfère d'ailleurs cette manière de l'écrire (...) et l'utilise dorénavant :D

Merci pour l'aide !