Vba excel: Utilisation d une liste box

zbig -  
zbig3k Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
J'ai une feuille (parametre) avec des infos en range A2:A6
Comment appeler ces infos dans une listbox d'un formulaire?
merci
Di


A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour

Private Sub UserForm_Initialize()
Dim lig As Byte, fin as byte

fin=range("A2").end(xldown).row
For lig = 2 To fin
ListBox1.AddItem cells(lig,"A")
Next i
End Sub

a éviter: la propriété rowsource pour remplir une listbox (et combobox)

Michel
0
zbig
 
Bonjour

il y a un bug

dans ma feuille "menu" j'ai un macro-bouton qui appelle le USform "usfsaisieg"
ma listbox se trouvant dans l'USf se nomme : statut1

il existe déjà une Private Sub UserForm_Initialize() dans le code de l'usf.

dans statut1 je voudrais voir apparaitre les infos se trouvant dans la feuille parametre en A2:A 6

merci
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
il existe déjà une Private Sub UserForm_Initialize() dans le code de l'usf.

ben, tu ajoutes le code dans initialize....
et tu remplaces listbox1 par le nom que tu lui as donné.

un bug 
fin=range("A2").end(xldown).row
For lig = 2 To fin
ListBox1.AddItem cells(lig,"A")
Next
0
Réponse 2 / 2
zbig3k Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
bonsoir

je me suis trompé c'est un combobox et non listbox :)
mais le nom est statut1

Di
-2