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'hui1542
Hier864
Cette semaine1542
Total depuis 20049828974

10
visiteurs actuellement en ligne