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