Â
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
Â
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







| Aujourd'hui | 1814 |
| Hier | 2042 |
| Cette semaine | 3856 |
| Ce mois-ci | 12028 |
| Depuis janvier 2004 | 2861141 |
Nous avons 43 invités et aucun membre en ligne