Formater ListView

Y compris Power BI, Power Query et toute autre question en lien avec Excel
K
KTM
Membre fidèle
Membre fidèle
Messages : 240
Appréciations reçues : 3
Inscrit le : 13 septembre 2018
Version d'Excel : 2013 FR

Message par KTM » 19 juillet 2019, 16:06

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
Classeur1.xlsm
(21.03 Kio) Téléchargé 5 fois
a
archer
Membre impliqué
Membre impliqué
Messages : 1'176
Appréciations reçues : 89
Inscrit le : 8 avril 2017
Version d'Excel : 2007/2010

Message par archer » 19 juillet 2019, 17:29

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
:btres:
K
KTM
Membre fidèle
Membre fidèle
Messages : 240
Appréciations reçues : 3
Inscrit le : 13 septembre 2018
Version d'Excel : 2013 FR

Message par KTM » 20 juillet 2019, 10:40

c'est gentil Merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message