LIEN ENTRE LES LISTES DÉROULANTES DANS WORD (RÉSOLU)

[chaelie2015]

Bonjour Forum
je souhaite avoir un lien ou un code VBE comment faire pour créer des liens entre les listes déroulantes dans WORD.
exemple :si je change dans la liste (NOM) alors l'autre liste (PRÉNOM) ce change automatiquement ( comme dans l'EXCEL) est ce possible dans Word?
NB: je ne sais pas si je suis autoriser de postuler ce message
A+

 

[job75]

Bonsoir chaelie2015,

C'est un problème qui concerne Word et pas Excel mais ce n'est pas bien grave.

Si David veut déplacer ce fil dans "Autres applications" il le fera.

En attendant voyez le fichier zippé joint et cette macro dans ThisDocument (Alt+F11) :

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Select Case ContentControls(1).Range
    Case "Dupont": ContentControls(2).Range = "Denise"
    Case "Martin": ContentControls(2).Range = "Paul"
    Case "Toubon": ContentControls(2).Range = "Albert"
End Select
End Sub

A+

 

[chaelie2015]

Bonsoir JOB75
SUPER; Mon souci est résolut
a+

 

[job75]

Re,

Avec cette solution les contrôles se synchronisent sur celui que l'on quitte :

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Dim i&, n%
For i = 1 To CC.DropdownListEntries.Count
    If CC.DropdownListEntries.Item(i) = CC.Range Then Exit For
Next
On Error Resume Next 'sécurité
For n = 1 To ContentControls.Count
    ContentControls(n).Range = ContentControls(n).DropdownListEntries.Item(i)
Next
End Sub

Fichier (2).

A+