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'hui2011
Hier2695
Cette semaine4706
Total depuis 20049407718

18
visiteurs actuellement en ligne