[ChTi160]

bonsoir MichelXLD
bonsoir le fil
sans prétention mis ici on partage
donc Michel je me permet puisque tu ne savais si l'on pouvait mettre des icones dans les ent^tes de colonnes eh bien OUI j'ai cherché et j'ai adapté ce que j'ai trouvé
je me permettrai peut être de mettre un petit fichier exemple qui reprendra ces diverses possibilités d'adaptation des colonnes et autres entêtes de colonne.
Donc pour Info
Dim imgX As ListImage
après avoir approvisionné le ListImage
For i = 1 To 4

Set imgX = ImageList1.ListImages.Add(, 'AA' & i, LoadPicture(ThisWorkbook.Path & '\\' & 'img' & i & '.ico'))

Next
il faut lier les entêtes de colonne au listImage

Set LV_Trains.ColumnHeaderIcons = ImageList1

'ici rempli les entêtes de colonne avec une îcones 'AA4'ou 'AA3'
'sans texte en colonne 1
Call LV_Trains.ColumnHeaders.Add(, , , LV_Trains.Width / 4, , 'AA4')
'sans îcone en colonne 2
Call LV_Trains.ColumnHeaders.Add(, , 'Heure', LV_Trains.Width / 4)
'avec texte et îcone en colonne 3
Call LV_Trains.ColumnHeaders.Add(, , 'Arrivée', LV_Trains.Width / 4, , 'AA3')

Call LV_Trains.ColumnHeaders.Add(, , 'Heure', LV_Trains.Width / 4, lvwColumnCenter)
une autre méthode en colonne 1 on colle l'îcone d'index 2
LV_Trains.ColumnHeaders(1).Icon = 2

en espèrant avoir fait avancer le sujet Lol
A Bientôt

Message édité par: Chti160, à: 22/10/2005 22:24