Formater ListView

Bonjour cher Forum

Je voudrais formater ma listview comme suit

  • Mettre ma colonne "Mois" dans le meme format que ma plage
  • Centrer les Données dans les colonnes "ID" et "Montant"
Merci

31classeur1.xlsm (21.03 Ko)

Bonjour

Modification de ta Listview

A voir

Private Sub UserForm_Initialize()
With ListView1
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.ColumnHeaders.Add , , "Mois", 80
.ColumnHeaders.Add , , "ID", 60, lvwColumnCenter
.ColumnHeaders.Add , , "Montant", 60, lvwColumnRight
End With
With ActiveSheet
Dim Item As ListItem
Dim dl, i As Integer
Me.ListView1.ListItems.Clear
dl = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To dl
        Set Item = Me.ListView1.ListItems.Add(Text:=.Cells(i, 1).Text)
        Item.SubItems(1) = .Cells(i, 2)
        Item.SubItems(2) = .Cells(i, 3)
    Next i
End With
End Sub

A+

Maurice

c'est gentil Merci

Rechercher des sujets similaires à "formater listview"