Discussion :

[nicolas2603]

Bonjour, j'ai une petite question toute bête qui fera certainement sourire nombre d'entre vous, mais je n'arrive pas à comparer deux chaines de caractères, l'une dans une variable varTextRecherche et l'autre dans un champ texte Me.NomP.Value.

Sachant que la valeur de NomP est obligatoirement majuscule, pour la comparaison je n'oublie pas de la passer en minuscule, mais j'ai beau utiliser les méthodes InStr ou Like, si par exemple je compare nico et nicolas ça me retourne toujours la valeur NON.

J'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
Dim R as Integer
R = InStr(1, varTextRecherche, LCase$(Me.NomP.Value), vbTextCompare)
If R = 1 Then
       MsgBox "ok"
Else
        MsgBox "non"
End If

également ceci :

Code :

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

1
2
3
4
5
If varTextRecherche = "*" & LCase$(Me.NomP.Value) & "*" Then
        MsgBox "ok"
Else
        MsgBox "non"
End If

Un p'tit coup de pouce serait bienvenu pour me permettre d'avancer, merci !

[pc75]

Bonjour, Et si tu fais :

Code :

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

1
2
 
R = InStr(1, LCase$(varTextRecherche), LCase$(Me.NomP.Value), vbTextCompare)

[nicolas2603]

Salut, non ça me retourne exactement la même chose ! La valeur devient True ou 1 que si les deux textes sont exactement identiques.

[micniv]

Attention a quelle chaine est imbriqée dans l'autre :

ceci fonctionne

Code :

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

1
2
 
retour = InStr(1, "nicolas", "iCoL", vbTextCompare)

[nicolas2603]

je savais bien que c'était un truc tout con !! Merci j'avais inversé l'imbriquée ... ++