Tableau de listView

Version imprimable

Salut,

J'aimerais créer un tableau de listView pour ensuite interagir avec (un peu comme un for each en java)

J'aimerais que ce morceau de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim lv(4) As ListView
    lv(0) = ListView1
    lv(1) = ListView2
    lv(2) = ListView3
    lv(3) = ListView4
    lv(4) = ListView5
 
    For i = 0 To UBound(lv)
        With lv(i)
            .ListItems.Clear
            .ListItems.Add = "TEST"
            .Refresh
            .ColumnHeaders.Add = lvwColumnCenter
            .BackColor = 255
        End With
    Next i

puisse faire cela :

Code:

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
 'Vide la listview
    ListView1.ListItems.Clear
    'Ajout le mot
    ListView1.ListItems.Add = "RACINE"
    'Actualise
    ListView1.Refresh
    'Cente le text
    ListView1.ColumnHeaders.Add = lvwColumnCenter
 
 
    ListView2.ListItems.Clear
    ListView2.ListItems.Add = "ACHAT"
    ListView2.Refresh
    ListView2.ColumnHeaders.Add = lvwColumnCenter
    'Change la couleur de fond
    ListView2.BackColor = 255
 
    ListView3.ListItems.Clear
    ListView3.ListItems.Add = "AO"
    ListView3.Refresh
    ListView3.ColumnHeaders.Add = lvwColumnCenter
    ListView3.BackColor = 255
 
    ListView5.ListItems.Clear
    ListView5.ListItems.Add = "ETUDE"
    ListView5.Refresh
    ListView5.ColumnHeaders.Add = lvwColumnCenter
    ListView5.BackColor = 255
 
    ListView4.ListItems.Clear
    ListView4.ListItems.Add = "DEVIS"
    ListView4.Refresh
    ListView4.ColumnHeaders.Add = lvwColumnCenter
    ListView4.BackColor = 255

Pour le moment j'ai une erreur je n'arrive pas à les stocker dans mon tableau.

Merci d'avance

Xiirf

Bonjour,
Je ne suis pas sûre d'avoir compris ton problème, mais je vais essayer de te proposer quelque chose. Utilise une deuxième liste :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim lv(5) As ListView
    lv(0) = ListView1
    lv(1) = ListView2
    lv(2) = ListView3
    lv(3) = ListView4
    lv(4) = ListView5
Dim lvName(5) As String
    lvName(0) = "RACINE"
    lvName(1) = "ACHAT"
    lvName(2) = "AO"
    lvName(3) = "ETUDES"
    lvName(4) = "DECIS"
 
    For i = 0 To UBound(lv)
        With lv(i)
            .ListItems.Clear
            .ListItems.Add = lvName(i)
            .Refresh
            .ColumnHeaders.Add = lvwColumnCenter
            .BackColor = 255
        End With
    Next i

En ce qui concerne le For Each : cela existe aussi en VBA !
En espérant que ça puisse t'aider.

PS : http://club.developpez.com/regles/#LIV-H

02/06/2017, 10h19
Xiirf

Bonjour,

Merci de votre réponse.

Le problème que j'ai actuellement est de stocker les listviews ensemble pour les parcourir. La première partie du code ne fonctionne pas.

J'ai essayer de mettre les listviews dans un ListObject, un ListItem mais je n'y arrive pas ..

Tes Listview, ils sont dans un UserForm ? Si c'est le cas, intéresse-toi à l'article sur les boucles dans un UserForm : http://silkyroad.developpez.com/VBA/...UserForm/#LI-B
En particulier :
Code:

1 2 3 4 5 6 Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 5 Cells(i, 1) = Me.Controls("ListView" & i) Next i End Sub
ou
Code:

1 2 3 4 Dim Ctrl As Control For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then MsgBox Ctrl.Object.Value Next Ctrl
Est-ce que tu vois comment adapter ?

02/06/2017, 10h36
Xiirf

Euh non pas trop ..

Actuellement j'ai mes ListView directement sur ma première feuille et après j’interagis avec leur nom dans mes macros.

Ok, donc tes ListView ne sont pas dans un UserForm. Tu peux essayer d'utiliser :

Code:

1
2
3
4
5
6
7
8
Sub test()
    Dim sh As Shape
    For Each sh In Sheets(1).Shapes
        If sh.Name Like "ListView*" Then
            '...
        End If
    Next sh
End Sub

J'ai essayer ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub testList() Dim sh As Shape For Each sh In Sheets(1).Shapes MsgBox sh.Name If sh.Name Like "ListView*" Then With sh .ListItems.Clear .ListItems.Add = "TEST" .Refresh .ColumnHeaders.Add = lvwColumnCenter .BackColor = 255 End With End If Next sh End Sub
Il detecte bien la listview mais je ne peux pas interagir avec. Erreur après le with "438, méthode ou propriété non gérée par cet objet"
Je vais aller me renseigner sur la doc de Shape

06/06/2017, 00h43
unparia

Bonjour
Commence par consulter ton aide interne VBA à la rubrique Set, instruction
Et dans la foulée : également la rubrique Création de variables objet

une listview est un objet
06/06/2017, 08h26
Xiirf
Merci de votre réponse.

Je ne connaissais pas l'aide interne ... J'ai pu réussir ce que je voulais faire. Le soucis était donc lié à l'initialisation des variables dans le tableau.

Voici comment il fallait faire:
Code:

1 2 3 4 5 6 Dim lv(4) As ListView Set lv(0) = ListView1 Set lv(1) = ListView2 Set lv(2) = ListView3 Set lv(3) = ListView4 Set lv(4) = ListView5
Xiirf