Discussion :

[Jeanvaljean44]

Bonsoir,

Dans un document Word, je souhaite choisir à partir d'une liste déroulante un nom, qui sera ensuite réutiliser dans ce même document en tant que champ.
Auriez vous une suggestion? Peut être que sans vba c'est faisable?

Merci pour vos idées

[Invité]

Bonjour,

Avec VBA :

Soit deux contrôles ActiveX : 1 Combobox et 1 TextBox.

Dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub MettreAJourChampTextBox(ByVal NomDuChamp As String, ByVal ValeurChamp As String)
 
Dim TextBoxEnCours As InlineShape
 
        For Each TextBoxEnCours In ActiveDocument.InlineShapes
            If TextBoxEnCours.OLEFormat.Object.Name = NomDuChamp Then
               TextBoxEnCours.OLEFormat.Object.Text = ValeurChamp
            End If
        Next TextBoxEnCours
 
End Sub

Dans ThisDocument :

Code :

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

1
2
3
4
 
Private Sub ComboBox1_Change()
        MettreAJourChampTextBox "TextBox1", ComboBox1
End Sub

Cordialement.