Recherche

 

Les champs de formulaire

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

France 72,1% France
Canada 7,7% Canada
Belgique 3,8% Belgique

Total:

117

Pays
018308633
Aujourd'hui: 34
Hier: 386
Cette semaine: 1.363
Semaine dernière: 2.467
Ce mois: 4.025