Les champs de formulaire
Voici le code à affecter à la liste déroulante :
Private Sub ComboBox1_DropButtonClick()
If ComboBox1.ListCount = 0 Then
With ComboBox1
.AddItem "texte 1"
.AddItem "texte 2"
.AddItem "texte 3"
End With
End If
End Sub
Les contrôles de contenu
Uniquement à partir de Word 2007
Sub maliste()
With ActiveDocument.ContentControls(1)
.DropdownListEntries.Add "item1"
.DropdownListEntries.Add "item2"
.DropdownListEntries.Add "item3"
End With
End Sub
Et voici un code plus élaboré, surtout si les listes sont longues :
Sub maliste()
listes_item = "Item1,Item2,Item3,Item4,Item5,Item6"
With ActiveDocument.ContentControls(1)
For i = 0 To UBound(Split(listes_pays, ","))
.DropdownListEntries.Add Split(listes_pays, ",")(i)
Next
End With
End Sub
Voyez dans cet article les différentes méthodes pour faire référence aux contrôles de contenu.