presence caractère 63 dans chaine à la place d'un autre

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:

---

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:

---

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

Bon je me suis bricoler une rustine.

J'ai mis le caractère dans une cellule excel et je compare par rapport à cette cellule plutôt que à la valeur ascii.

C'est pas top mais çà tiendra faute de mieux pour le moment.

Merci

Salut
Ɠ : Il s'agit tout simplement d'un caractère unicode qui n'est pas pris en charge par ta configuration logicielle actuelle. Tout caractère unicode sera affiché comme étant un point d'interrogation (?).

Si tu es en VBS, la déclaration "Dim valeur As String, Carac As Integer" conduit à une erreur.
Il faut déclarer :

Code:

---

Dim Valeur, Carac

---

sans ajouter le type.

Ok,

Merci beaucoup. Je vais aller tester tous çà.

A bientôt

Après test en supprimant les types, j'ai toujours le caractères 63 sur mon caractère spécial.

Merci pour ton aide, ma rustine suffira pour ce petit bout de code sans grande importance dans mon projet.

Bonne journée