[ChTi160]

Salut MichelXLD

bonjour le Forum
bonjour le Fil

Michel je suis très touché car tes pages Wiki m'apprennent beaucoup et c'est Ok pour compléter ce que tu as déjà fait

je vais comme je te l'ai dit mettre un fichier qui reprendra ce que j'ai trouvé concernant les ListView ce sont des adaptations de ce que j'ai trouvé sur le net(Merci aux personnes dont je n'ai pas relevées les noms)
par exemple:
Centrer une colonne de la Listeview
Call LV_Trains.ColumnHeaders.Add(, , 'Heure', LV_Trains.Width / 4, lvwColumnCenter)
ajuster la Largeur des colonnes à celle du Textevia une fonction RefreshLV LV_Trains
dans un Module Standart

Option Explicit
    Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Private Declare Function LockWindowUpdate Lib 'user32' (ByVal hwndLock As Long) As Long
   
    Private Const LVM_FIRST = &H1000
    Private Const LVM_SETCOLUMNWIDTH = LVM_FIRST + 30
    Private Const LVSCW_AUTOSIZE = -1

 Sub RefreshLV(LV_Trains As ListView)
   
       LockWindowUpdate LV_Trains.Hwnd
       Call SendMessage(LV_Trains.Hwnd, LVM_SETCOLUMNWIDTH, 0, LVSCW_AUTOSIZE)
  
       If LV_Trains.ColumnHeaders(1).Width < LV_Trains.Width Then
          If LV_Trains.Height > (LV_Trains.ListItems.Count * 270) Then
               LV_Trains.ColumnHeaders(1).Width = LV_Trains.Width - 80
           Else
               If LV_Trains.ColumnHeaders(1).Width < LV_Trains.Width - 320 Then
                   LV_Trains.ColumnHeaders(1).Width = LV_Trains.Width - 320
               End If
         End If
      End If
      LockWindowUpdate 0&
  
   End Sub

Trier les Colonnes

Private Sublv_ColumnClick (ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    LV_Trains.SortKey = ColumnHeader.Index - 1
   LV_Trains.Sorted = True
    LV_Trains.SortOrder = lvwAscending
End Sub

colorer le texte des SubItems

Set subItm = wItem.ListSubItems.Add(, , '15:30')
    subItm.ForeColor = vbRed

donner la possibilité de modifier les SubItems etc ....
Bonne Journée