remplir listbox

[ccpapy]

bonsoir,
je plante sur un truc surement facile🙁
sur un usf, j'ai une premiere listbox qui me permet de choisir l'onglet voulu
de là, j'aimerai que la 2ème listbox se remplisse avec les valeurs qui se trouve sur la feuille choisie ...
liste de la cellule h3 à la derniere h écrite
un exemple traduira mieux ma pensée.
merci pour votre aide

 

[skoobi]

Re : remplir listbox

Bonsoir ccpapy,

Voici:

Private Sub ListBox1_Click()
Dim rep As Variant
  With Sheets(ListBox1.ListIndex + 2)
    ListBox2.List = .Range("H3", .[H65536].End(xlUp)).Value
  End With

End Sub

Bonne soirée.

 

[ccpapy]

Re : remplir listbox

merci bien, nickel
je vais pouvoir continuer

bonne soirée