Alimenter une ListBox depuis une feuille

Version imprimable

Bonjour et merci pour tous les efforts

Information : ListBox3 est alimenté depuis la feuille Mouvementmatériels.

Problématique : quand il y a pas d’item sur mon tableau ma ListBox3 affiche les entêtes « le problème la ligne des entêtes est sélectionnable », quand un item existe les entêtes disparaissent, voir l’Userform1 dans la feuille Mouvementmatériels---bouton La saisie.
Code:

1 2 3 4 5 6 7 8 9 Private Sub UserForm_Initialize() With Sheets("Mouvementmatériels") ListBox3.List = .Range("A3:j" & .Range("A65536").End(xlUp).Row).Value End With ListBox3.ColumnWidths = "300;30;150;30;70;150;65;70;2" End Sub
je vous remercie infiniment pour votre attention.

Bonjour,
un exemple

Code:

1
2
3
4
5
6
7
Dim Dcel As Range
With Sheets("Mouvementmatériels")
    Set Dcel = .Range("A" & .Rows.Count).End(xlUp)
    If Dcel.Row >= 3 Then
      ListBox3.List = .Range("A3", Dcel(1, 10))
    End If
End With

merci casefayere, j'ai un peu modifié ton code car il y avait l'erreur 381

Code:

1
2
3
4
5
6
7
Dim Dcel As Range
With Sheets("Mouvementmatériels")
    Set Dcel = .Range("A" & .Rows.Count).End(xlUp)
    If Dcel.Row >= 3 Then
      ListBox3.List = .Range("A3:j" & .Range("A65536").End(xlUp).Row).Value
    End If
End With