Discussion :

[JaZZmine]

Bonjour

Je suis novice en VBA avec word et j'ai besoin d'être éclairée au sujet des macros avec les champs formulaire (pas les outils contrôle !).

J'ai joint un fichier pour que vous puissiez constater mon problème. En bref, je dois créer une macro qui me permet de masquer un paragraphe ou un tableau (définis par des signets) si je choisis le terme "Masqué" dans une liste déroulante.

Mon code fonctionne mais pour qu'il s'active, je dois absolument faire la touche TAB après avoir fait mon choix dans la liste déroulante.

Y a t-il un moyen de permettre à la macro de s'activer automatiquement lorsque je fais un choix ou encore est-ce que je peux inscrire une commande "Fais un TAB" quelque part ?

Merci d'avance pour votre aide

Jazzmine

[Heureux-oli]

Bonjour et bienvenue sur les forums office de DVP.

Il n'y a pas moyen de faire autrement.

Il faut sortir du contrôle pour que la macro s'exécute.

[JaZZmine]

Bon, ok.

J'ai essayé avec un ComboBox (outil contrôle). Ça semble fonctionner jusqu'à ce que je ferme et réouvre mon document : ma liste devient vide !

Qu'est-ce qui marche pas dans mon code ?

Encore merci d'avance !

[Heureux-oli]

Le code fonctionne, tu dois après avoir fais ton choix quitter le contrôle pour que le code s'exécute.
C'est un mode normal pour word, il ne détecte pas l'évènement après mise à jour.

Pour que ce choix fonctionne, il faut passer par un userform, mais on perd le bénéfice de travailler dans le document.

[JaZZmine]

Désolée pour mon manque de compréhension ou peut-être m'ai-je mal expliquée

Dans mon 2e post, j'ai envoyé un autre fichier avec cette fois-ci un outil contrôle et ça fonctionne instantanément, sans que j'aie à quitter le contrôle....

Le problème qui me reste à régler c'est pourquoi ma liste se vide à l'ouverture de mon document ?

[Heureux-oli]

Il faut le remplir lors de l'ouverture du document.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Document_Open()
With ComboBox1
    If .ListCount = 0 Then
        .AddItem "Non masqué"
        .AddItem "Masqué"
        .AddItem "Autre"
    End If
End With
End Sub

Essaie de coller ce code.

[JaZZmine]

YÉÉÉÉÉ !

Merci beaucoup Heureux-oli, ça marche !

Je vais maintenant essayer de changer les champs formulaire dans mon document original pour des outils contrôle.