Remplir des listbox
cs_FilD
Messages postés
1
Date d'inscription
mercredi 2 février 2005
Statut
Membre
Dernière intervention
21 mars 2009
-
2 févr. 2005 à 21:09
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 3 févr. 2005 à 08:25
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 3 févr. 2005 à 08:25
2 réponses
michelxld
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
32
3 févr. 2005 à 06:04
3 févr. 2005 à 06:04
bonjour
tu peux par exemple insérer dans chaque UserForm
Private Sub UserForm_Initialize()
Dim X As Byte
For X = 1 To 10 'exemple de donnees dans plage A1:A10
ListBox1.AddItem Feuil1.Cells(X, 1)
Next X
End Sub
bonne journée
michel
tu peux par exemple insérer dans chaque UserForm
Private Sub UserForm_Initialize()
Dim X As Byte
For X = 1 To 10 'exemple de donnees dans plage A1:A10
ListBox1.AddItem Feuil1.Cells(X, 1)
Next X
End Sub
bonne journée
michel
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
3 févr. 2005 à 08:25
3 févr. 2005 à 08:25
Private Sub UserForm_Initialize()
Dim X As Byte
For X = 1 To 10 'exemple de donnees dans plage A1:A10
Feuil1.ListBox1.AddItem Cells(X, 1)
Feuil2.ListBox1.AddItem Cells(X, 1)
Next X
End Sub
It@li@
Dim X As Byte
For X = 1 To 10 'exemple de donnees dans plage A1:A10
Feuil1.ListBox1.AddItem Cells(X, 1)
Feuil2.ListBox1.AddItem Cells(X, 1)
Next X
End Sub
It@li@
