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

 

 

Statistiques

Aujourd'hui1820
Hier1130
Cette semaine1820
Ce mois38222
Total depuis 200410607047

15
visiteurs actuellement en ligne