VBA : Impossibilité d'écrire le caractère "à" alors qu'il est nécessaire dans mon code

Question

Bonjour

J'ai un problème sur le code suivant :

Code :

Sub ChoixListe()
 
    Dim xDirection As FormField
    Dim xState As FormField
    On Error Resume Next
    Set xDirection = ActiveDocument.FormFields("ld1")
    Set xState = ActiveDocument.FormFields("ld2")
    If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub
    With xState.DropDown.ListEntries
        .Clear
        Select Case xDirection.Result
            Case "Projets d'échanges de groupes"
                .Add "Rencontre au domicile du partenaire"
                .Add "Rencontre en tiers lieu"
            Case "Projets et mesures destinés à développer la qualité des rencontres et des échanges pour les professionnels de jeunesse"
                .Add "Réunion de coopération institutionnelle"
                .Add "Réunion de préparation et d'évaluation"
                .Add "Projet d'échange entre professionnels de la jeunesse"
            Case "Autres projets"
                .Add "p.e. projet trinational, rencontre en tiers lieu"
            End Select
    End With
End Sub

Lorsque je saisis le code sur VBA, le "à" de la ligne "Projets et mesures destinés à développer la qualité des rencontres et des échanges pour les professionnels de jeunesse" se transforme en  et du coup il ne reconnait pas ce Case.

Je précise que je n'ai pas le choix d'utiliser cette phrase, elle m'est imposée.
Quelqu'un a-t-il une solution ?

Merci

Answer 1

Dans l'éditeur VBA (VBE) >Outils>Options>Format de l'éditeur, tu as bien Courrier New (occidental) pour Texte Normal ?

Sinon la solution de Bernard fonctionne

Answer 2

Curieux. Rien de tel chez moi (Word 2301 sous Windows 10), en tout cas :

Que ce soit en saisie directe ou en copier-coller, rien à signaler d'inhabituel...

Answer 3

Bonjour,

C'est directement dans l'éditeur VBA. Quand je saisis "à" il est remplacé par ce ŕ. J'ai même essayé en saisissant ma macro sur Notepad++ et en faisant un copier/coller, le "à" se transforme.

Answer 4

Bonjour,

Je ne comprend pas bien le "se transforme" ?

C'est dans la valeur de xDirection qu'il y a ce ŕ ? ou c'est dans l'éditeur VBA ?

Si c'est dans xDirection je propose 341

Case "Projets et mesures destinés " & ChrW(341) & " développer.../...

ou faire le test sur la portion de texte après le 30eme caractère

Answer 5

Suggestion peut-être trop simple pour être honnête : essaye de le remplacer dans la chaîne par ChrW(224), ce qui donnerait donc quelque chose du genre :

Case "Projets et mesures destinés " & ChrW(224) & " développer.../...