encodage langue arabe

bonjour

j'ai un fichier excel écrit en arabe

quand

j' ai le code suivant

Code:

---

1 2 3 4 5 6

Function calculsaut(res As Double, sexe As String)   If sexe = "ذكر" Then calculsaut = 0.5 End If End Function

---

la variable sexe prend un string écrit en arabe
le pb c que il y a un pb d 'encodage de caractere entre excel et l'editeur
quant je fait la copie d'un cellule dans l'editeur
ca m'affiche ????
a lieu du mot arabe c pour cela le test ne fonctionne pas

votre aide svp
Merci

Bonjour,

Essayez

Code:

---

1 2 3 4 5 6 7

Function calculsaut(res As Double, sexe As String) Dim A$ A$ = ChrW(1584) & ChrW(1603) & ChrW(1585) If sexe = A$ Then calculsaut = 0.5 End If End Function

---

Cordialement.

PMO
Patrick Morange

Merci Patric

et pour le mot "انثى" svp

encore comment je peut connaitre les code que vous m'avez envoyer

merci encore

Bonjour,

Copiez le code suivant dans un module standard

Code:

---

1 2 3 4 5 6 7 8 9 10

Function Arab2Code(R As Range) As String Dim A$ Dim B$ Dim i& A$ = CStr(R) For i& = 1 To Len(A$) B$ = B$ & AscW(Mid(A$, i&, 1)) & Space(1) Next i& Arab2Code = B$ End Function

---

Exemple : en B6 le mot en arabe
en C6 la formule =arab2code(A6)
Cela donne le code ChrW de chaque lettre composant le mot.

Cordialement.

PMO
Patrick Morange

Merci encore
شكرا