Entête de collone listview

[cpeens]

Bonjour à tous en ce bon matin je me posais une question qui va m'être utile d'ici peut.

j'utilise cette macro qui me permet de creer mes entête de listview

With Listview1
        With .ColumnHeaders
        
         .Clear
            '.Add , , "SUPP", 40
            .Add , , "REF", 90
            .Add , , "ACTION", 90
             
            
            
        End With
        .View = lvwReport
        .FullRowSelect = True
        End With

ma question est il y à t'il une autre solution en prenant directement les entête d'une base de donnée et si en cas d'ajout d'une entête suplementaire automatiquement incrementer dans ceux de la listviews merci pour vos information
à bientot

 

[Paritec]

Re : Entête de collone listview

bonjour cpeens le forum
oui bien sur tu peux faire une boucle sur le nombre de colonne, mais dans ce cas là il faut aussi prévoir de redimensionner la largeur de la listview
a+
papou😱

 

[cpeens]

Re : Entête de collone listview

Bonjour paritec merci pour ton aide mais c'est un petit peu du chinois lol comment dois je faire ma boucle je cherche un exemple depuis la parution de ton message mais je trouvent rien qui si rapporte je continue de chercher merci tout de même

 

[Paritec]

Re : Entête de collone listview

Re Cpeens le forum
tu ne joins pas de fichier comment tu veux que je te fasse une modif?????
a+
papou😱

 

[jecirbe]

Re : Entête de collone listview

bonjour ,
voici ce que j'ai trouvé dans "mes petits papiers"

Private Sub UserForm_Initialize()
'on compte le nombre de colonnes dans la base de donnée
totcol = Sheets("Base").Range("IV2").End(xlToLeft).Column
'MsgBox totcol 'test
With ListView1
        With .ColumnHeaders
             .Clear  'on vide les headers avant de les recréer
             w = 2 'w=2 car dans la feuille listes les données concernant la largeur sont à partir de la
                  ' 2 ème Ligne
             For titre = 1 To totcol 'on fait une boucle jusqu'au nombre maxi des colonnes
             largcel = Sheets("listes").Cells(w, 1).Value 'on détermine la largeur de chaque colonne qui a été ici rassemblé sur la feuille "listes"
             .Add , , Sheets("Base").Cells(2, titre), Round(largcel)             ' .Add , , , 0
             w = w + 1
             Next titre
        End With
    .ListItems.Clear
    .MultiSelect = False
    .FullRowSelect = True
    .Gridlines = True
    .LabelEdit = 1
    .CheckBoxes = False
    .View = 3
End With

A toi de chercher comment déterminer la largeur des colonnes. une piste : je l'ai fait sans passer par vba
Voilà j'espère que ça peut aider
jecirbe