Microsoft 365 Affichage de certaines colonnes dans une listview

Private Sub InitListView()

    Dim rngCell As Range



    With Me.ListView1

        .Gridlines = True

        .HideColumnHeaders = False

        .View = lvwReport

        .FullRowSelect = True

     

         'Ajouter les en-têtes de colonnes

         For Each rngCell In Tbl.HeaderRowRange.Cells

             .ColumnHeaders.Add Text:=rngCell.Value, Width:=90

          Next rngCell

       

        .ColumnHeaders.Add Text:="row", Width:=20

        .ColumnHeaders(1).Width = 20: .ColumnHeaders(1).Alignment = lvwColumnLeft

        .ColumnHeaders(2).Width = 80: .ColumnHeaders(2).Alignment = lvwColumnCenter

        .ColumnHeaders(3).Width = 80: .ColumnHeaders(3).Alignment = lvwColumnCenter

        .ColumnHeaders(4).Width = 500: .ColumnHeaders(4).Alignment = lvwColumnCenter

        .ColumnHeaders(5).Width = 100: .ColumnHeaders(5).Alignment = lvwColumnCenter

        .ColumnHeaders(6).Width = 50: .ColumnHeaders(6).Alignment = lvwColumnCenter

        .ListItems.Clear

    End With
End Sub