Quel est le code pour remplir une liste déroulante que j'ai créée dans un document ?

Détails
Catégorie parente: Word
Catégorie : Formulaires & contrôles
Affichages : 49471

 

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.