Discussion :

[Xiirf]

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 :

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
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 :

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
 '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

[riaolle]

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 :

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
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

[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 ..

[riaolle]

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 :

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

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 :

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

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 ?

[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.

[riaolle]

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

Code :

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

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