Discussion :

[flo57570]

Bonjour,

J'ai un problème lorsque je souhaite récupérer la valeur de ma liste déroulante

Voici mon code :

Code :

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

1
2
3
Sub test()
    MsgBox ActiveDocument.FormFields("couleur").Result
End Sub

et voici mon erreur :

Erreur 5941, Le membre de la collection requis n'existe pas

Cordialement,

Flo

[Heureux-oli]

Salut,

Tu n'as pas de FormField nommé couleur dans ton document.

[flo57570]

j'ai nommé ma liste déroulante en faisant : Insert/Signet que j'ai nommé "couleur"

Est ce bon ??

[Heureux-oli]

Salut,

Normalement, ça devrait le faire.

Essaie une boucle sur tous les FormFields de ton document pour voir si il est présent.

Code :

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

1
2
3
4
5
Dim myFF As FormField
 
For Each myFF in Activedocument.formfields
    Debug.print myFF.Name
Next myFF

[jbonat]

Bonjour,

J'ai créer plusieurs listes déroulantes sur un document Word. Ces listes déroulantes contiennent chacune des données similaires (des devises (ex: EUR, CHF, GBP, ...)). Je souhaiterai pouvoir sélectionner une devise dans la première liste déroulante et répercuter cette sélection sur les autres listes. Par exemple, si je choisis la devise "EUR" dans la première liste déroulante, toutes les autres liste déroulantes vont afficher la devise "EUR".

Je bloque avec le code VBA pour créer cet fonctionnalité. Est-il possible de m'aider ?

Merci

[Heureux-oli]

Salut,

Pourquoi passer par des listes déroulantes si c'est pour imposer des valeurs ?

[jbonat]

Salut Heureux-oli,

Merci pour ta réponse. Je ne vois pas trop ou tu veux en venir ? J'ai besoins de liste déroulante pour choisir une devise spécifique. Comme je l'ai dis cela peut être des "EUR", "CHF" etc. Et le choix de ma devise pour la première liste déroulante doit affecter les autres listes déroulantes.

Est-ce que mon explication est plus claire ?

[Heureux-oli]

Salut,

Donc, pour résumer.
Tu choisis dans la première liste une valeur "EUR" et cette valeur va être affichée par la autres listes.

Pourquoi avoir des listes, une seule suffit. dans ce cas.

[jbonat]

Oui voila.

J'ai besoin que ces valeurs soient tout simplement reprise plusieurs fois dans mon document. Selon toi il serait possible/plus simple d'avoir une liste déroulante et des champs dans lesquels les éléments de la liste déroulante sont repris? Plutôt que d'avoir plusieurs listes déroulantes.

[Heureux-oli]

Salut,

Tout à fait.
Une seule liste avec les choix.

Pour cette liste, tu crées un style personnalisé qui peut avoir les mêmes caractéristiques que le texte qui l'entoure.

A tous les endroits où l'inforamation doit se trouver, tu insères un champ ctrl + F9 (materialisé par deux crochets) dans lequel tu inscrit :

Code :

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

{ StyleRef TonStyle }

Tous les champs prendront la valeur de ta liste.

[jbonat]

Salut,

Très bien. Mais comment créer un style personnalisé pour ma liste? Et quid du code, doit-il être entré directement dans le champs ou dans l'éditeur VBA?

Désolé pour ces questions triviales mais je débute.

[jbonat]

Après quelque essais, j'ai réussi à insérer les champs comme tu me l'a indiquer mais lorsque je sélectionne une autre valeur (=une autre devise) dans la liste déroulante, les champs ne change pas et garde l'ancienne valeur.

Peut-tu m'aider à résoudre ce problème? J'y suis presque ^^

[Heureux-oli]

Salut,

On va faire beaucoup plus simple.

Ta liste déroulante possède un nom que l'on obtiens dans la boîte de dialogue qui sert à la remplir.

Copie ce nom, normalement, c'est ListeDéroulanteX. Au passage, coche calculer à la sortie.

Partout où tu en as besoin, tu insère un champ et tu colle ce nom dans les crochets.

Ca devrait être plus simple et avec un résultat plus sûr.

[jbonat]

Salut,

J'ai suivi tes conseils mais rien ne se passe. J'ai copié le nom de ma liste déroulante (ListeDéroulante25),coché la case calculer à la sortie et inséré {StyleRef ListeDéroulante25} entre crochet. Ai-je oublié qqch?

[jbonat]

Le nom de la ma liste déroulante se trouve dans "Réf" et non pas dans "RéfStyle" comme tu me l'as indiqué. Peut-être le problème provient-il de là?

[Heureux-oli]

Salut,

Les crochets sont obtenus par la combinaison de touché Ctrl + F9.

[jbonat]

J'ai bien mis les crochets mais le problème est que quand j'active la protection de mon document et que je change la valeur de la liste déroulante (par exemple "EUR" changé pour "CHF"), cette valeur n'est pas répercutée dans les champs (La valeur reste donc "EUR" au lieu de devenir "CHF").

[Heureux-oli]

Salut,

Il faut quitter la liste pour que la valeur soit répercutée.

[jbonat]

Salut,

J'ai résussi. Un énorme merci pour ton aide !!!

A bientôt