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
Au chargement d'une feuille EXCEL, comment remplir 2 listbox se
trouvant dans 2 Userform différentes avec les mêmes valeurs.



Merci pour vos infos.

2 réponses

michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 31
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
0
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
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@
0