Discussion :

[abbesmed]

bonjour

j'ai un fichier excel écrit en arabe

quand

j' ai le code suivant

Code :

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

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

[PMO2017]

Bonjour,

Essayez

Code :

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

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

[abbesmed]

Merci Patric

et pour le mot "انثى" svp

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

merci encore

[PMO2017]

Bonjour,

Copiez le code suivant dans un module standard

Code :

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

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

[abbesmed]

Merci encore
شكرا