Discussion :

[nacereddine.mourad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[casefayere]

Bonjour,
un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nacereddine.mourad]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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