Discussion :

[chrisaccess]

Bonjour,

Je souhaite vérifier si le contenu d'un textbox ou d'une variable contient un mot.
Mes recherches m'ont permis de trouver la fonction "like"

J'ai monté un programme test afin de comprendre son utilisation mais il semble que je sache pas l'utiliser.

Ce programme me réponds toujours faux ?????

Pouvez vous m'éclairer ?

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
17
18
Sub test()
 
Dim test As String
Dim result As Boolean
Dim result1 As Single
 
test = "le bonjour j'aime le revolver"
result = test Like "le"
result1 = test Like "le"
MsgBox test & " : " & result & " - " & result1
If test Like "le" Then
    MsgBox "vrai"
Else
    MsgBox "faux"
End If
 
 
End Sub

merci pour votre aide,

[chrisaccess]

Il fallait rajouter 2 "*" dans le contenu du mot à chercher :
Je l'ai trouvé dans un exemple qui m'a intrigué.

Par contre la condition ne fonctionne pas car elle reste toujours fausse

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
17
18
Sub test()
 
Dim test As String
Dim result As Boolean
Dim result1 As Single
 
test = "le bonjour j'aime le revolver"
result = test Like "*le*"
result1 = test Like "*le*"
MsgBox test & " : " & result & " - " & result1
If test Like "le" Then
    MsgBox "vrai"
Else
    MsgBox "faux"
End If
 
 
End Sub

DONC ce code fonctionne :

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
17
 
Sub test()
 
Dim test As String
Dim result As Boolean
 
test = "bonjour j'aime  revolver"
result = test Like "*le*"
MsgBox test & " : " & result
If result = True Then
    MsgBox "vrai"
Else
    MsgBox "faux"
End If
 
 
End Sub

Les explications sont très peu claire sur cette fonction !!!!!!
Cela aidera peut être quelqu'un d'autre dans l'avenir qui aura chercher comme moi !!

merci

[riaolle]

Bonjour,
La page suivante donne un certain nombre d'exemple pour comprendre la fonction : https://msdn.microsoft.com/fr-fr/library/swf8kaxw.aspx

[unparia]

Bonjour
1) je ne vois pas en quoi :

Les explications sont très peu claire sur cette fonction !!!!!!

Elles m'ont toujours paru très claires et ce : depuis mes tous premiers pas en VB
2) il ne faut pas abuser gratuitement de l'opérateur Like, là où suffit une simple utilisation de la fonction Instr (elle également exposée de manière claire dans l'aide VBA)

[joe.levrai]

il ne faut pas abuser gratuitement de l'opérateur Like, là où suffit une simple utilisation de la fonction Instr (elle également exposée de manière claire dans l'aide VBA)

Bonjour,

cette remarque, comme toute tes remarques, n'est pas anodine, et m'interpelle.

tu fais ici allusion aux ressources mobilisées par Like par rapport à Instr (et donc du temps d'exécution) ou plutôt à une fiabilité plus grande de Instr si on ne sait pas correctement utiliser Like par rapport au contexte du projet (notamment si on évalue mal le type et les combinaisons de valeurs qu'on va analyser) ?

[unparia]

Bonjour joe.levrai
Je ne fais là allusion qu'à la vitesse d'exécution. Instr est plus léger que Like
Petit test :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
chaine = "voila une chaîne de caractères"
sous_chaine = "cha"
Dim deb As Single
deb = Timer
For i = 1 To 1000000
  toto = InStr(chaine, sous_chaine)
Next
MsgBox Timer - deb
 
deb = Timer
For i = 1 To 1000000
  toto = chaine Like "*" & sous_chaine & "*"
Next
MsgBox Timer - deb

Amitiés

La principale raison de cette différence de vitesse d'exécution est à rechercher dans toute la boîte d'outils que transporte avec lui l'opérateur Like (tous les cas de figure). C'est un peu le même genre de cause qui fait qu'utiliser par exemple FSO revient à "transporter" dans sa "valise" tout ce dont FSO a besoin.