Vba excel: Utilisation d une liste box

zbig -  
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

2 réponses

  1. zbig3k
    bonsoir

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

    Di
    1. michel_m Contributeur
      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
      1. 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
      2. michel_m Contributeur
        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