Choix automatique de Police Arabe dans une TextBox

Bonjour membres du forum,

Discussion en rapport avec ce lien https://forum.excel-pratique.com/excel/enregistrer-des-donnees-sur-une-feuille-excel-174621#p1084526

Le Textbox NomARABE_Etabl faire en sorte que le curseur sélectionne automatiquement la Police d'écriture Arabe dès qu'IL Reçois le focus

et la police revient au Français quand le curseur le quitte.

Cordialement.

Bonjour,

Il suffit de choisir la bonne police pour le TextBox concerné, non

(ceci est juste un exemple, je n'ai pas la police adéquat)

Bonjour,

Bonjour Bruno

Perso, j'aurais pensé à la propriété du script...

Cette propriété peut être définie par une valeur Integer (Occidental : 0 - Arabe : 178, par exemple)

Me.TextBox1.Font.Charset = 178 'Pour déterminer en Arabe

Comme je ne dispose pas du clavier arabe, je travaille donc, moi aussi, sans filets...

Bonne apm, et bon W-E

Bonsoir cousinhub,

Je recherche l'événement qui permet par code VBA, de basculer le clavier du FR à l'arabe AR dès que le textbox NomARABE_Etabl reçoit le focus.

Ensuite quand le curseur le quitte, on bascule au FR.

Clavier Français

Clavier Arabe

J'ai testé votre code mais pas de changement.

Cordialement.

Bonjour

A essayer (a mettre dans les macros de l'userform: UserFormEtablissScol)

Private Sub TextBoxNomARABE_Etabl_Enter()
  SendKeys "%+"
End Sub

Private Sub TextBoxNomARABE_Etabl_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  SendKeys "%+"
End Sub

J'ai essayé

Après avoir installer sur l'ordi (windows) la langue Arabe

A+ François

Bonsoir fanfan38,

Ton code marche mais il y a un souci du fait que le clavier bascule du FR à l'arabe AR dès que le textbox NomARABE_Etabl.

Mais quand il quitte laTextbox NomARABE_Etabl pour la Textbox suivante, il se met à l'anglais EN.

Pourtant mon objectif est du FR pour toutes autres textbox et l'Arabe pour seulement la textbox NomARABE_Etabl.

Cordialement.