ListBox
Résolu
cs_ganjaaw
Messages postés
5
Date d'inscription
samedi 14 mai 2005
Statut
Membre
Dernière intervention
25 mars 2009
-
14 mai 2005 à 16:53
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 14 mai 2005 à 17:40
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 14 mai 2005 à 17:40
1 réponse
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
14 mai 2005 à 17:40
14 mai 2005 à 17:40
Bonjour,
Ce code ajoute les cellules A1:A20 à la ListBox et au Combobox, il suffit d'augmenter la boucle for i 1 To 20 pour ajouter + de cellules.
Private Sub UserForm_Initialize()
Dim Cell As Range, i
For i = 1 To 20
For Each Cell In Range("A:A")(i).End(xlUp).Rows
If Cell(i).Value <> "" Then
ListBox1.AddItem Cell(i)
Combobox1.AddItem Cell(i)
End If
Next
Next i
Combobox1.ListIndex = 0
End Sub
jpleroisse
Ce code ajoute les cellules A1:A20 à la ListBox et au Combobox, il suffit d'augmenter la boucle for i 1 To 20 pour ajouter + de cellules.
Private Sub UserForm_Initialize()
Dim Cell As Range, i
For i = 1 To 20
For Each Cell In Range("A:A")(i).End(xlUp).Rows
If Cell(i).Value <> "" Then
ListBox1.AddItem Cell(i)
Combobox1.AddItem Cell(i)
End If
Next
Next i
Combobox1.ListIndex = 0
End Sub
jpleroisse