Discussion :

[pastis.vi]

Bonjour à tous !

J'ai un petit problème, je tente de récupérer des données brutes depuis un fichier excel vers une userform dans laquelle je place une listview pour y afficher les données du fichier excel.
Pour cela j'ai fais le code suivant :

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
    With Trouver
        With .ColumnHeaders
            .Clear
            .Add , , "Index", 20
            .Add , , "Date", 30
            .Add , , "Ligne", 40
            .Add , , "N°Affaire", 50
            .Add , , "N°OF", 50
            .Add , , "Type 1", 40
            .Add , , "Type 2", 40
            .Add , , "Description du défaut", 100
            .Add , , "Impact", 50
            .Add , , "TR heures", 20
            .Add , , "TR minutes", 30
        End With
        .Gridlines = True
        .FullRowSelect = True
        .HideColumnHeaders = False
        .LabelEdit = 1
 
    End With
    For Each cell In Sheets("bdd").Range("B1", [N65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
        Trouver.ListItems.Add.Text = cell.Value
    Next cell

Je ne comprends pas bien pourquoi mes données se remplissent uniquement dans la première colonne de ma listview.
J'ai tenté d'autres moyens du style (avec b ma colonne à 1 et a ma cellule à 1 et un boucle qui incrémente):

Code :

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

Trouver.ListItems(b).ListSubItems.Add(a).Text = cell.Value

Mais ça ne fonctionne toujours pas, j'ai un message d'erreur "Index out of bounds".
Auriez-vous une idée comment remplir ma listview svp ?

Merci
Pastis.vi

[pastis.vi]

Okay bon bah j'ai trouvé la solution tout seul, voici le résultat :

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
42
43
44
    If Sheets("bdd").Range("A1").SpecialCells(xlCellTypeLastCell).Row = 1 Then
        MsgBox "Il n'y a aucune donnée à afficher"
    Else
        With Trouver
            With .ColumnHeaders
                .Clear
                .Add , , "Index", 30
                .Add , , "Date", 55
                .Add , , "Ligne", 35
                .Add , , "Controleur", 40
                .Add , , "N°Affaire", 60
                .Add , , "N°OF", 70
                .Add , , "Etape Contrôle", 65
                .Add , , "Origine", 80
                .Add , , "Type 1", 70
                .Add , , "Type 2", 130
                .Add , , "Description du défaut", 200
                .Add , , "Impact", 50
                .Add , , "TR heures", 60
                .Add , , "TR minutes", 60
            End With
            .Gridlines = True
            .FullRowSelect = True
            .HideColumnHeaders = False
            .LabelEdit = 1
        End With
        Trouver.ListItems.Clear
        'On rempli la listeview appelée "Trouver"
        For Each cell In Sheets("bdd").Range("A2", [A65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
            Trouver.ListItems.Add.Text = cell.Value
        Next cell
        i = 1
        a = 0
        For Each cell In Sheets("bdd").Range("B2", [N65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
            If a = 13 Then 'ce a=13 je l'ai trouvé à taton, en fait il faut que lorsqu'on arrive en fin de la première ligne, qu'il remplisse la ligne suivant, d'où ma variable a et l'incrémentation de i qui correspond à la ligne dans la listview
                i = i + 1
                a = 0
            End If
            Trouver.ListItems(i).ListSubItems.Add.Text = cell.Value
            a = a + 1
        Next cell
        Trouver.ListItems(1).Selected = False
        Set Trouver.SelectedItem = Nothing
    End If

Il faut, en fait, remplir la colonne 1 et ensuite remplir le reste.
En espérant que cela serve à quelqu'un !