[VBA-Excel]Problème pour remplir une listview

Version imprimable

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:

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:

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.

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:

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

29/01/2006, 13h30
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
29/01/2006, 13h44
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:

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.
29/01/2006, 14h55
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

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

29/01/2006, 16h27
Le Djé

Impeccable !

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