Discussion :

[Bocage]

Bonjour/soir forum

Est ce que les listviews fonctionnent en xl2003

Je n'arrive pas à faire afficher la moindre entête.. et la ligne des noms lorsque je retire les marques de commentaires. J'ai épluché la doc

J'ai ramassé sur le site, un exemple FiltreListeView.xls dont les fonctionnalités sont celles que je recherche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub UserForm_Initialize()
    Dim i As Long
    '--- code de la ListView1 ---
    With ListView1
        With .ColumnHeaders
           .Clear
           .Add , , "Nom", 100
           .Add , , "Domaine", 100
           .Add , , "Somme", 100
        End With
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
'                For i = 1 To Sheets("Résultats").Range("A65536").End(xlUp).Row
'                   .ListItems.Add , , Sheets("Résultats").Cells(i, 18)
'                   .ListItems(1).ListSubItems.Add , , Sheets("Résultats").Cells(i, 4)
'                Next
'        ListView1.ListItems(1).Selected = False '--- désactive la sélection de la première ligne par défaut ---
'        Set ListView1.SelectedItem = Nothing    '--- désactive la sélection de la première ligne par défaut ---
    End With
End Sub

Voilà, une autre longue journée par très lucrative...
A+
Bo