bonjour chers Jean-Marie et Guy
Jean-Marie : tu m'apelles , j'accoures ...
j'espere que cette adaptation répondra à ta demande (testé avec Excel2002 et WinXP)
je te laisse decouvrir les modifications
Private Sub UserForm_Initialize()
Dim imgX As ListImage
Dim wItem As ListItem
LV_Trains.View = lvwReport
Me.ImageList1.ListImages.Clear
Me.ImageList1.ImageHeight = 16
Me.ImageList1.ImageWidth = 16
Set imgX = _
Me.ImageList1.ListImages.Add(, 'AA', LoadPicture(ThisWorkbook.Path & '\\\\\\\\' & 'printer.ico'))
LV_Trains.SmallIcons = ImageList1
Call LV_Trains.ColumnHeaders.Add(, , 'Départ', LV_Trains.Width / 4)
Call LV_Trains.ColumnHeaders.Add(, , 'Heure', LV_Trains.Width / 4)
Call LV_Trains.ColumnHeaders.Add(, , 'Arrivée', LV_Trains.Width / 4)
Call LV_Trains.ColumnHeaders.Add(, , 'Heure', LV_Trains.Width / 4)
'-----------
Rem Ajout de la première ligne
Set wItem = Me.LV_Trains.ListItems.Add(, , 'Chambéry')
wItem.SubItems(1) = '06:00'
wItem.SubItems(2) = 'Paris'
wItem.SubItems(3) = '09:15'
wItem.SmallIcon = 'AA'
Rem Ajout de la deuxième ligne
Set wItem = LV_Trains.ListItems.Add(, , 'Chambéry')
wItem.SubItems(1) = '15:30'
wItem.SubItems(2) = 'Lyon'
wItem.SubItems(3) = '17:15'
wItem.SmallIcon = 'AA'
End Sub
bonne soiree
MichelXld