Alimentation de Combobox sous Word
Edy-2009
-
fben2008 -
fben2008 -
Bonjour,
J'ai inséré une zone de liste déroulante (combobox) dans un document au format word.
Le problème se pose dans l'alimentation du combobox à l'ouverture du document.
Lorsque je click sur le combobox, la liste est vide (ce qui est normal puisque il n'a pas été alimenté)
Comment faire pour l'alimenté à l'ouverture du document et pour qu'il soit exploitable sur click.
J'ai essayé plusieurs méthodes sans succès.
Merci de m'aider à résoudre ce point.
' Essai 1 === Bien que sur Change n'est pas la méthode pour insérer du texte dans le combobox ====
Private Sub ComboBox1_Change()
ComboBox1.AddItem "texte 1"
ComboBox1.AddItem "texte 1"
ComboBox1.AddItem "texte 1"
End Sub
' Essai 2 ======================
Private Sub ComboBox1_DropButtonClick()
If ComboBox1.ListCount = 0 Then ' ListCount ne figure pas dans propriété du ComboBox1
With ComboBox1
.AddItem "texte 1"
.AddItem "texte 2"
.AddItem "texte 3"
End With
End If
End Sub
J'ai inséré une zone de liste déroulante (combobox) dans un document au format word.
Le problème se pose dans l'alimentation du combobox à l'ouverture du document.
Lorsque je click sur le combobox, la liste est vide (ce qui est normal puisque il n'a pas été alimenté)
Comment faire pour l'alimenté à l'ouverture du document et pour qu'il soit exploitable sur click.
J'ai essayé plusieurs méthodes sans succès.
Merci de m'aider à résoudre ce point.
' Essai 1 === Bien que sur Change n'est pas la méthode pour insérer du texte dans le combobox ====
Private Sub ComboBox1_Change()
ComboBox1.AddItem "texte 1"
ComboBox1.AddItem "texte 1"
ComboBox1.AddItem "texte 1"
End Sub
' Essai 2 ======================
Private Sub ComboBox1_DropButtonClick()
If ComboBox1.ListCount = 0 Then ' ListCount ne figure pas dans propriété du ComboBox1
With ComboBox1
.AddItem "texte 1"
.AddItem "texte 2"
.AddItem "texte 3"
End With
End If
End Sub
A voir également:
- Combobox word
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Word et excel gratuit - Guide
- Espace insécable word - Guide
- Supprimer page word - Guide