Remplir listbox avec lignes du fichier

[Michoute]

Bonjour
J'ai une première listbox qui contient le nom des feuilles de mon classeur. Je voudrais pouvoir remplir ma deuxième listbox avec la 1ere ligne de la feuille sélectionnée auparavant.
Merci de votre aide

 

[Hervé]

bonjour

une syntaxe parmis d'autres possibles :

Private Sub ListBox1_Click()

ListBox2.Clear
With Sheets(ListBox1.Text)
        ListBox2.Column = .Range(.Cells(1, 1), .Cells(1, .Cells(1, 256).End(xlToLeft).Column)).Value
End With
End Sub

salut

 

[Michoute]

Merci hervé c'est exactement ce qu'il me fallait

 

[Hervé]

re

utilises plutot ceci :

Private Sub ListBox1_Click()
Dim c As Range
ListBox2.Clear
With Sheets(ListBox1.Text)
        For Each c In .Range(.Cells(1, 1), .Cells(1, .Cells(1, 256).End(xlToLeft).Column))
                ListBox2.AddItem c
        Next c
End With
End Sub

ca t'evitera un bug, si une ligne est vide.

salut

 

[Michoute]

Merci Hervé
j'ai pris ta 2eme version et c'est nickel