Private Sub UserForm_initialize()
With Me.ListView1
With .ColumnHeaders
.Clear
.Add , , "Heure de saisie", 60
.Add , , "CA", 60
.Add , , "EBAUCHE", 40
.Add , , "N° OF", 60
.Add , , "Qté DE PIECES", 60
.Add , , "TEMPS D'USINAGE", 60
.Add , , "TEMPS DE MONTAGE", 60
.Add , , "REMARQUE", 150
End With
.View = 3 ' type Report
.Gridlines = True ' affichage de lignes
.FullRowSelect = True ' sélection complète de la ligne
.HideColumnHeaders = False ' afficher les en-têtes de colonnes
.LabelEdit = 1 ' ne pas autoriser la saisie
End With
Inilvw1
End Sub
Sub Inilvw1()
ListView1.ListItems.Clear
With Sheets("Feuil1")
Set Plage = .Range("A3:A" & .Range("A65000").End(xlUp).Row)
For Each Cel In Plage
With ListView1
.ListItems.Add , , Cel
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 4)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 5)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 6)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 7)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 10)
End With
Next
End With
End Sub