Discussion :

[fabian123]

Bonjour à vous!


comme indiqué dans l'intitulé, je souhaiterais, par le biais d'une sélection dans un champ liste déroulante, afficher un texte ou l'autre.

exemple:

on sélectionne "Pierre DUPONT" dans la liste déroulante, le texte "Directeur Financier" s'affiche dans le champ texte, si on sélectionne Marie DURAND, se sera Directrice RH qui s'affichera dans la zone de texte!

Grâce aux différentes discutions que j'ai pu lire et aux conseils d'Heureux-Oli, j'ai pu faire le code suivant, qui me permet bien d'adapter la zone de texte, mais je rencontre deux soucis:

1° -> je suis obligé de cliquer sur la zone de texte pour faire la mise a jour, or je voudrais que celle-ci se fasse au moment du choix dans le champ liste déroulante;

2° -> comment fait-on pour afficher un texte sur plusieurs lignes dans une macro?


Voici le code:

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
Sub ListeFONCTIONS()
Dim stNOM As String
'récupération du pays
stNOM = ActiveDocument.FormFields(1).Result
 
Select Case stNOM
Case "Pierre DUPONT"
    With ActiveDocument.FormFields("Texte1")
        .Result = "Directeur Financier" 'je voudrais rajouter une ligne sous celle de directeur financier (par exemple 'Département des Ventes')
 
    End With
Case "Marie DURAND"
    With ActiveDocument.FormFields("Texte1")
        .Result = "Directrice RH"
    End With
 
End Select
 
End Sub

[Heureux-oli]

Salut,

Il faut sortir du champ pour que la modification de la liste soit prise en compte.

Ou alors, tu dois passer par un UserForm qui prend en compte plus d'évènements.

[fabian123]

Bonjour Heureux-Oli, merci de t'être penché sur mon problème!

selon toi, quelle est la méthode la plus facile? (Userform ou sortir du champ?)

Si il n'y a pas de différence, j'aurais tendance à préférer sortir du champ et ne pas utiliser d'userform...

Cependant, peux-tu m'expliquer en quoi cela consiste? je dois rajouter une ligne de commande après la ligne .Result?

merci de m'aiguiller!

Bonne journée!

[Heureux-oli]

Salut,

Sortir du champ signifie aller vers un autre contrôle ou vers une zone modifiable du document.

Un UserForm est une boîte de dialogue personnalisée que l'on doit fermer lorsque l'on a termine pour revenir sur le document.

[fabian123]

re bonjour tout le monde!

je continue à chercher une solution pour mon problème.

J'ai essayé de passer par un UserForm et cela fonctionne, mais je rencontre cependant encore des problèmes, pourriez-vous me dire ce qui ne va pas dans mon code?

les problèmes:

1° - le nom sélectionné dans la liste déroulante revient toujours au premier nom après la validation du UserForm (dans mon fichier exemple: Sophie)
2° - je n'arrive pas à faire en sorte d'afficher l'Userform à partir de ma liste déroulante, je passe par un bouton de commande. Pour que cela fonctionne avec la liste déroulante, je suis obligé de cliquer quelque par sur le document et puis de re sélectionner la liste déroulante...

Ci-joint mon fichier,

merci pour votre aide et vos conseils!