Remplir une listview à partir d'un tableau Array

**Gecoo** · 28/04/2010, 16h15

Bonjour,

J'alimentais une listbox à l'aide d'un tableau Array (code ci-dessous) seulement j'aimerais utilisé une listview plutôt qu'une listBox. Et c'est là mon problème. Etant donné mes légères connaissance dans le language, je n'y arrive pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim aCC(0 To 2000, 0 To 50)
m = 0
    For i = 2 To Range("A65536").End(xlUp).Row
        If Not Rows(i).Hidden Then
                For t = 0 To Colonne + 1
                    aCC(m, t) = Cells(i, t + 1)
                Next t
m = m + 1
        End If
    Next i
 
UserForm1.ListBox1.List() = aCC

Ne marche pas avec :
Userform1.ListView1.ListItems() = aCC

Merci pour votre aide

**Fvandermeulen** · 28/04/2010, 16h32

Salut,

Silkyroad a fait un bon tuto sur ce sujet, voici le lien:

http://silkyroad.developpez.com/VBA/ListView/

Bonne lecture.

A+

**Gecoo** · 28/04/2010, 16h43

Merci pour le lien.
Du coup, j'ai tenté cela :

Code :

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

1
2
3
4
5
6
7
8
9
m = 0
    For i = 2 To Range("A65536").End(xlUp).Row
        If Not Rows(i).Hidden Then
                For t = 0 To Colonne + 1
                    UserForm1.ListView1.ListItems(m).ListSubItems(t).Add = Cells(i, t + 1)
                Next t
m = m + 1
        End If
    Next i

Mais j'ai une erreur de compilation au niveau de : ).Add = Cells

Tu pourrais m'orienter sur mon erreur ?

**Fvandermeulen** · 28/04/2010, 16h47

Re,
J'ai pas vraiment le temps de tester mais de prime abord j'initialiserai m à 1 et pas à 0. Pareil pour t, je ne crois pas que les Items commencent à 0.

Et pour être certain j'ajouterais le .value après cells (mais vraiment pour être certain)

a+

**Gecoo** · 28/04/2010, 16h51

Si j'utilise cela :

Code :

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

UserForm1.ListView1.ListItems(m).ListSubItems(t).Text = Cells(i, t + 1)

J'obtiens une erreur : 35600 Index out of bounds

**Fvandermeulen** · 28/04/2010, 17h04

As tu créés tes colonnes comme décrit dans le tuto, mets le code entier qu'on voit ce qui ce passe, par contre moi j'ai vraiment plus le temps aujourd'hui désolé, faudra compter sur quelqu'un d'autre si t'es pressé.

Sinon, utilise l'exemple du tuto que tu teste tel quel et ensuite tu intègre ta boucle.

A+

**Gecoo** · 28/04/2010, 18h13

Non je ne suis pas pressé et tpujours prêt à apprendre !!

Donc voila ce que j'ai ecris :

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
45
46
47
48
49
50
51
52
53
Private Sub CommandButton1_Click()
Dim Ligne As Long
Dim Colonne As String
 
Ligne = ActiveCell.SpecialCells(xlCellTypeLastCell).Row 'Derniere remplie
Colonne = ActiveCell.SpecialCells(xlCellTypeLastCell).Column    'colonne en nombre
Colonne2 = Chr(ActiveCell.SpecialCells(xlCellTypeLastCell).Column + 64)    'colonne en lettre
 
Set Plage = [_filterdatabase].Offset(1).Resize(, 1)
Set Plage = Plage.Resize(Plage.Count - 1).SpecialCells(xlCellTypeVisible)
 
UserForm1.ListView1.ListItems.Clear
With UserForm1.ListView1
 
'Remplissage de l'entête
        With .ColumnHeaders
            .Clear
            .Add , , "A", 213
            .Add , , "B ", 40, lvwColumnRight
            .Add , , "C", 50, lvwColumnRight
            .Add , , "D", 213
            .Add , , "E ", 40, lvwColumnRight
            .Add , , "F", 50, lvwColumnRight
            .Add , , "G", 213
            .Add , , "H ", 40, lvwColumnRight
            .Add , , "I", 50, lvwColumnRight
            .Add , , "J", 213
            .Add , , "K ", 40, lvwColumnRight
            .Add , , "L", 50, lvwColumnRight
        End With
 
'Remplissage de la premiere colonne
With .ListItems
    For i = 2 To Ligne
        If Not Rows(i).Hidden Then
                .Add.Text = Sheets(1).Cells(i, 1)
        End If
    Next i
End With
 
'Remplissage des autres colonnes
m = 1
For i = 2 To Ligne
    If Not Rows(i).Hidden Then
        For t = 1 To Colonne
            UserForm1.ListView1.ListItems(m).ListSubItems.Add.Text = Sheets(1).Cells(i, t)
        Next t
    m = m + 1
    End If
Next i
 
End With
End Sub

Il m'affiche des trucs mais pas ce que je veux.
En gros :
1. Dans la listview il m'affiche uniquement les données de ma 1ere colonne (filtrée) excel mais dans la 1ere ligne listview !!

2. les autres donnees des 11 autres colonnes excel n'apparaissent pas

3. les données de la listview peuvent etre déplacé à l'aide du curseur de la souris.

Ah oui et j'oublié : il ne m'affiche pas mes entêtes