Discussion :

[Le Djé]

Bonjour le forum,
Voilà j'ai 3 colonnes (A,B et D) avec environ 1500 lignes, le voudrai remplir une listview qui est sur une form avec ces données.

Ce code ne me remplit que la 1ère colonne
Je vous présente mon 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Dim nbfonction As Integer, i As Integer
 
nbfonction = Sheets("Qualifs").Range("F1").Value
 
ListView4.ColumnHeaders.Clear
ListView4.ListItems.Clear
 
'Alimentation des titres de colonne :
ListView4.ColumnHeaders.Add , , "Code diplôme", 80, lvwColumnLeft
ListView4.ColumnHeaders.Add , , "Domaine", 60, lvwColumnCenter
ListView4.ColumnHeaders.Add , , "Filière", 60, lvwColumnCenter
ListView4.ColumnHeaders.Add , , "Libellé diplôme", 160, lvwColumnCenter
 
ListView4.SortOrder = lvwAscending
ListView4.Sorted = True
ListView4.SortKey = 0
 
Dim txtA As String, txtB As String, txtC As String, txtD As String
 
For i = 2 To nbfonction + 1
    txtA = Sheets("Qualifs").Range("A" & i).Value
    ListView4.ListItems.Add i - 1, , CStr(txtA) 'COLONNE 1
 
    txtB = Sheets("Qualifs").Range("B" & i).Value
    ListView4.ListItems(i - 1).SubItems(1) = CStr(txtB) 'COLONNE 2
 
    txtC = Sheets("Qualifs").Range("C" & i).Value
    ListView4.ListItems(i - 1).SubItems(3) = CStr(txtC) 'COLONNE 3
    ListView4.Refresh
Next i

Ce code par contre fonctionne mais est incroyablement long (car il effectue une boucle par colonne) :

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
 
Dim nbfonction As Integer, i As Integer
nbfonction = Sheets("Qualifs").Range("F1").Value
 
ListView4.ColumnHeaders.Clear
ListView4.ListItems.Clear
 
'Alimentation des titres de colonne :
ListView4.ColumnHeaders.Add , , "Code diplôme", 80, lvwColumnLeft
ListView4.ColumnHeaders.Add , , "Domaine", 60, lvwColumnCenter
ListView4.ColumnHeaders.Add , , "Filière", 60, lvwColumnCenter
ListView4.ColumnHeaders.Add , , "Libellé diplôme", 160, lvwColumnCenter
 
ListView4.SortOrder = lvwAscending
ListView4.Sorted = True
ListView4.SortKey = 0
 
Dim txtA As String, txtB As String, txtC As String, txtD As String
 
For i = 2 To nbfonction + 1
    txtA = Sheets("Qualifs").Range("A" & i).Value
    ListView4.ListItems.Add i - 1, , CStr(txtA)
    ListView4.Refresh
Next i
 
For i = 2 To nbfonction + 1
    txtB = Sheets("Qualifs").Range("B" & i).Value
    ListView4.ListItems(i - 1).SubItems(1) = CStr(txtB)
    ListView4.Refresh
Next i
 
For i = 2 To nbfonction + 1
    txtC = Sheets("Qualifs").Range("C" & i).Value
    ListView4.ListItems(i - 1).SubItems(3) = CStr(txtC)
    ListView4.Refresh
Next i

Alors pourquoi l'un fonctionne et pas l'autre ?
Merci de m'éclairer.

[SilkyRoad]

bonjour

je ne suis pas sur d'avoir bien compris car aucun des 2 exemples ne fonctionne chez moi (Excel2002)

tu peux tester cette adaptation

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
Dim nbfonction As Integer, i As Integer
Dim txtA As String, txtB As String, txtC As String, txtD As String
 
nbfonction = Sheets("Qualifs").Range("F1").Value
 
ListView4.ColumnHeaders.Clear
ListView4.ListItems.Clear
 
'Alimentation des titres de colonne :
ListView4.ColumnHeaders.Add , , "Code diplôme", 80, lvwColumnLeft
ListView4.ColumnHeaders.Add , , "Domaine", 60, lvwColumnCenter
ListView4.ColumnHeaders.Add , , "Filière", 60, lvwColumnCenter
ListView4.ColumnHeaders.Add , , "Libellé diplôme", 160, lvwColumnCenter
 
ListView4.SortOrder = lvwAscending
ListView4.Sorted = True
ListView4.SortKey = 0
 
For i = 2 To nbfonction + 1
    txtA = Sheets("Qualifs").Range("A" & i).Value
    ListView4.ListItems.Add , , CStr(txtA)
 
    txtB = Sheets("Qualifs").Range("B" & i).Value
    ListView4.ListItems(i - 1).ListSubItems.Add , , CStr(txtB)
 
    txtC = Sheets("Qualifs").Range("C" & i).Value
    ListView4.ListItems(i - 1).ListSubItems.Add , , CStr(txtC)
 
    txtD = Sheets("Qualifs").Range("D" & i).Value
    ListView4.ListItems(i - 1).ListSubItems.Add , , CStr(txtD)
Next i
 
ListView4.View = lvwReport

bon dimanche
michel

[leroissejp]

Bonjour,
Tu vas dans la page de propriété de la ListView, Personnalisé/Général et à View tu choisis 3-lvwReport.J'ai essayé avec ton premier code, ça marche.

jpleroisse

[Le Djé]

Bonjour

Merci leroissejp mais ma listview est déjà en "lwreport"

J'ai bien les 4 en-têtes de colonne mais seulement la 1ère est remplie.

J'ai oublié de préciser que :

Code :

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

1
2
 
nbfonction = Sheets("Qualifs").Range("F1").Value 'C'est une formule qui est dans F1, NBVAL() pour avoir le nombre de lignes

Et la solution de SilkyRoad ne fonctionne pas, merci qd même.

[leroissejp]

Re
Alors, c'est peut-être à cause de ta formule, comme je ne savais pas, j'ai mis 5 en F1. Fais un essai.

jpleroisse

[ThierryAIM]

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
Dim nbfonction As Integer, i As Integer
 
nbfonction = Sheets("Qualifs").Range("F1").Value
 
ListView4.ColumnHeaders.Clear
ListView4.ListItems.Clear
 
'Alimentation des titres de colonne :
ListView4.ColumnHeaders.Add , , "Code diplôme", 80, lvwColumnLeft
ListView4.ColumnHeaders.Add , , "Domaine", 60, lvwColumnCenter
ListView4.ColumnHeaders.Add , , "Filière", 60, lvwColumnCenter
ListView4.ColumnHeaders.Add , , "Libellé diplôme", 160, lvwColumnCenter
 
ListView4.SortOrder = lvwAscending
ListView4.Sorted = True
ListView4.SortKey = 0
 
Dim itmX As ListItem
 
For i = 2 To nbfonction + 1
    Set itmX = ListView4.ListItems.Add(i - 1, , CStr(Sheets("Qualifs").Range("A" & i).Value)) 'COLONNE 1
 
    itmX.SubItems(1) = CStr(Sheets("Qualifs").Range("B" & i).Value) 'COLONNE 2
 
    itmX.SubItems(2) = CStr(Sheets("Qualifs").Range("C" & i).Value) 'COLONNE 3
    Set itmX = Nothing
Next i

Et comme ça :

[Le Djé]

Impeccable !

Ca marche du premier coup et en plus c'est beaucoup plus rapide ! MERCI