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'hui1620
Hier1967
Cette semaine5545
Ce mois29960
Total depuis 200410502926

21
visiteurs actuellement en ligne