Problème code VBA et langue arabe

Fermé

ancien1957 - 14 déc. 2017 à 12:31
BSMHami - 29 août 2023 à 22:34

Bonjour,
J'ai écrit mon code vba en français tout en glissant un mot en arabe que j'ai mis entre guillemets "الأولى".
La macro me renvoie tout le texte en français en bonne et due forme mais pour le mot en arabe, elle renvoie "??????".
Pouvez vous m'aider.
Merci d'avance.

A voir également:

Passer le code en langue arabe
Télécharger clavier arabe - Télécharger - Divers Web & Internet
Code ascii - Guide
Telecharger langue arabe - Télécharger - Bureautique
Comment déverrouiller un téléphone quand on a oublié le code - Guide
Code puk bloqué - Guide

8 réponses

Réponse 1 / 8

Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
16 déc. 2017 à 15:53

Bonjour,

Utilises un label dans un userform pour l'afficher :

Private Sub Test()
Dim s As String
  s = ChrW(1575) & ChrW(1604) & ChrW(1650) & ChrW(1608) & ChrW(1604) & ChrW(1609)
  Range("A1").Value = s
  UserForm1.Label1.Caption = s
  UserForm1.Show
  Unload UserForm1
End Sub

Réponse 2 / 8

ancien1957
16 déc. 2017 à 16:08

c'est quoi un label et c'est quoi un userform ?

Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
Modifié le 16 déc. 2017 à 16:48

https://silkyroad.developpez.com/VBA/UserForm/
et
https://silkyroad.developpez.com/VBA/ControlesUserForm/

Réponse 3 / 8

yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025 Ambassadeur 1 579
16 déc. 2017 à 17:39

bonjour, je te suggère d'expliquer ce que la macro fait avec le texte, par exemple en partageant le code VBA.

Réponse 4 / 8

ancien1957
16 déc. 2017 à 17:46

Je vous prie de m'expliquer étape par étape ce que je dois faire pour exécuter ma macro qui doit renvoyer un mot en arabe ("الأولى")
Merci d'avance

Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
Modifié le 16 déc. 2017 à 18:10

renvoyer où ???

BSMHami
29 août 2023 à 22:34

Suivez ces instructions,

Puis ce si,

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

ancien1957
16 déc. 2017 à 17:53

Dans mon code VBA, j'ai programmé un mot en arabe qui, lorsque j'appuie sur executer la macro, doit etre écrit sur ma page excel 2007.
Merci à vous

Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
16 déc. 2017 à 17:56

Par exemple en A1 :

Private Sub Test()
Dim s As String
  s = ChrW(1575) & ChrW(1604) & ChrW(1650) & ChrW(1608) & ChrW(1604) & ChrW(1609)
  Range("A1").Value = s
End Sub

Réponse 6 / 8

ancien1957
16 déc. 2017 à 18:04

J'ai essayé avec votre macro mais ma macro refuse de me renvoyer du texte en arabe alors qu'elle me renvoie du texte en français le plus normalement du monde. Je ne comprends rien à cela . Aidez moi SVP.
Merci

Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
16 déc. 2017 à 18:11

Et c'est quoi ta macro ???

Réponse 7 / 8

ancien1957
16 déc. 2017 à 18:14

Range("A1").Select
ActiveCell.FormulaR1C1 = "الأولى"
Range("A2").Select
End Sub

Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
16 déc. 2017 à 18:29

Non, c'est pas possible, c'est pas ta macro, c'est ce que tu voudrais mais pas ce qu'il y a écrit dans l'éditeur VBA, dans l'éditeur VBA ça donne :

Range("A1").Select
ActiveCell.FormulaR1C1 = "??????"
Range("A2").Select
End Sub

L'éditeur VBA n'accepte pas directement les caractères unicode sous forme de chaine !!!!
c'est pour cela que j'ai écrit la valeur unicode de chaque caractère :

s = ChrW(1575) & ChrW(1604) & ChrW(1650) & ChrW(1608) & ChrW(1604) & ChrW(1609)

Réponse 8 / 8

ancien1957
16 déc. 2017 à 18:34

ça ne marche pas pas

Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
16 déc. 2017 à 18:48

Bien sur que ça marche :
https://mon-partage.fr/f/C5oG01GS/

Discussions similaires

installer la langue arabe sur mon samsung

Bonjour tt le mde

Je veux ajouter la langue arabe à mon samsung GT-C6625 est ce possible? et comment faire?

Mettre Facebook Messenger en français

Bonjour,

Je voudrais savoir comment faire car mon messenger est en anglais et je voudrai le mettre en francais merci