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

**yolbri** · 21/02/2023, 14h50

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

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Populateddfood()
 
    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 saisi le code sur VBA, le "à" de la ligne 15 se transforme en Nom : a.png
Affichages : 152
Taille : 209 octets

et du coup il ne reconnait pas ce Case.

Quelqu'un a-t-il une solution ?
Merci

**mromain** · 21/02/2023, 17h26

Bonjour yolbri, le forum,

Je n'ai pas testé, mais tu peux essayer de modifier ton Select Case ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim texte As String
    texte = xDirection.Result
    Select Case True
        Case texte = "Projets d'échanges de groupes"
            .Add "Rencontre au domicile du partenaire"
            .Add "Rencontre en tiers lieu"
        Case texte Like "Projets et mesures *"
            .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 texte = "Autres projets"
            .Add "p.e. projet trinational, rencontre en tiers lieu"
    End Select