Discussion :

[pierrot53]

Bonjour à tous

Débutant dans VBA,
J'aimerai remplir une listview ( à l'initialisation) où mes données sont dans une feuille excel.
J'aimerai savoir comment je peut arriver à mes fin...


PS : j'ai bien lus http://silkyroad.developpez.com/VBA/ListView/ mais je ne trouve pas dont j'ai besoin ;(

[SilkyRoad]

bonjour

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub UserForm_Initialize()
    Dim Cell As Range
    Dim X As Byte
    Dim k As Integer
 
    k = Worksheets("Feuil2").Range("A65536").End(xlUp).Row
 
    'Les données sont dans la Feuil2.
    'La premiere ligne, de la colonne A à J contient les entêtes.
    With ListView1
        With .ColumnHeaders
            .Clear
            .Add , , Worksheets("Feuil2").Cells(1, 1), 70
            .Add , , Worksheets("Feuil2").Cells(1, 2), 70
            .Add , , Worksheets("Feuil2").Cells(1, 3), 100
            .Add , , Worksheets("Feuil2").Cells(1, 4), 40
            .Add , , Worksheets("Feuil2").Cells(1, 5), 80
            .Add , , Worksheets("Feuil2").Cells(1, 6), 80
            .Add , , Worksheets("Feuil2").Cells(1, 7), 80
            .Add , , Worksheets("Feuil2").Cells(1, 8), 80
            .Add , , Worksheets("Feuil2").Cells(1, 9), 70
            .Add , , Worksheets("Feuil2").Cells(1, 10), 60
        End With
 
        'Les autres lignes contiennent les données
        For Each Cell In Worksheets("Feuil2").Range("A2:A" & k)
            X = X + 1
            .ListItems.Add , , Cell
            .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 1)
            .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 2)
            .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 3)
            .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 4)
            .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 5)
            .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 6)
            .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 7)
            .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 8)
            .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 9)
        Next
    End With
 
End Sub

michel

[pierrot53]

merci c'est pile ce que je cherchais

je te remercie