Vba excel: Utilisation d une liste box

zbig -  
zbig3k Messages postés 11 Statut Membre -
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.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    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
      0
    2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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
  2. zbig3k Messages postés 11 Statut Membre
     
    bonsoir

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

    Di
    -2