Discussion :

[tiber33]

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 )

Code :

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

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.

[Invité]

Code :

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

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

[Invité]

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 :

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

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.

[illight]

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

Code :

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

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

sait-on jamais

[Invité]

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

Code :

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

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

sait-on jamais

[tiber33]

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.

[nibledispo]

Bonsoir,

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

Pour preuve :

Code :

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

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,

[tiber33]

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

Merci pour l'aide !