Bonjour,

J'ai un soucis de recherche de présence du caractère 63 dans une chaine.

Je m'explique.

Voici ma chaine : EUROPƓKE FIRMAGRUPPER

Vous Remarquerez le Ɠ

Dans une fonction si je fais :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Dim valeur As String
Dim Carac As Integer
 
valeur = la chaine
 
For nCar = 1 To Len(valeur)
    Carac = Asc(Mid(valeur, nCar, 1))
    MsgBox "Valeur : " & Mid(valeur, nCar, 1) & " = " & Carac
Next
J'ai en valeur de Carac -> 63 , le chr(63) est '?' donc je penche pour une mauvaise gestion du caractère spécial.

Mais quand je fais :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
If (InStr(valeur, Chr(63))) Then
    MsgBox " Presence du caractère " & Chr(63)
End If
Il ne rentre pas dans mon test, pour lui le caractère 63 n'est pas présent dans la chaine.

Avez vous une idée?

Merci