Bonsoir,
je besion d'afficher tout les colonnes dans listbox
Private Sub AfficheList()
'ListBox1.RowSource = Range("A2", Range("D65000").End(xlUp)).Address
Dim R As Range
ListBox1.Clear
For Each R In f.UsedRange.SpecialCells(xlCellTypeVisible).Rows
If R.Row > 1 Then ListBox1.AddItem R.Cells(1, 1)
Next R
End Sub
je besion d'afficher tout les colonnes dans listbox
Private Sub AfficheList()
'ListBox1.RowSource = Range("A2", Range("D65000").End(xlUp)).Address
Dim R As Range
ListBox1.Clear
For Each R In f.UsedRange.SpecialCells(xlCellTypeVisible).Rows
If R.Row > 1 Then ListBox1.AddItem R.Cells(1, 1)
Next R
End Sub