Sujet Précédent Sujet Suivant

Vba excel: Utilisation d une liste box

Fermé
zbig - 15 déc. 2011 à 14:58
zbig3k Messages postés 8 Date d'inscription vendredi 30 mars 2007 Statut Membre Dernière intervention 1 août 2013 - 15 déc. 2011 à 21:34
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié par michel_m le 15/12/2011 à 15:20
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
Modifié par zbig le 15/12/2011 à 15:34
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
15 déc. 2011 à 15:43
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 vendredi 30 mars 2007 Statut Membre Dernière intervention 1 août 2013
15 déc. 2011 à 21:34
bonsoir

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

Di
-2