listview, affichage du total d'une colonne

Version imprimable

Bonsoir,
Mon code marche, mais il doit y avoir plus simple non?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim b As Long
 
    Dim liMyListItem As ListItem
    For i = 1 To ListView1.ListItems.Count - 1
    a = ListView1.ListItems(i).ListSubItems(8).Text
    b = b + a
    Next i
    Text1.Text = b
    Set liMyListItem = ListView1.ListItems.Add(, , "")
          liMyListItem.ListSubItems.Add(1) = ""
          liMyListItem.ListSubItems.Add(2) = ""
          liMyListItem.ListSubItems.Add(3) = ""
          liMyListItem.ListSubItems.Add(4) = ""
          liMyListItem.ListSubItems.Add(5) = ""
          liMyListItem.ListSubItems.Add(6) = ""
          liMyListItem.ListSubItems.Add(7) = ""
          liMyListItem.ListSubItems.Add(8) = b

Je veux mon total sous ma colonne, y a t il pas autre chose a faire car c'est un peu lourd :(
Merci.

bonsoir
Pourquoi pas

Code:

1
2
3
4
5
 
For i = 1 To 7
          liMyListItem.ListSubItems.Add(i) = ""
Next i
          liMyListItem.ListSubItems.Add(8) = b

Salut

30/11/2006, 10h09
Vld44

je comprends pas trop la syntaxe pour tes subitems

Le code c'est

Code:

liMyListItem.ListSubItems.Add index,clé,"texte"

Ensuite si ta ligne est vide par défaut, et que tu as correctement paramétré tes colonnes, il suffit d'ajouter le 8° :)

Code:

liMyListItem.ListSubItems.Add 8,,b

Ca devrait marcher ...

edit : prends l'habitude d'utiliser les clés, c'est plus facile pour la relecture.
Par exemple configure ton listview pour que le columnheader 8 (celui de ton total) ait une clé, s'appellant "KTOTAL"

Comme ça le moment venu tu n'as même pas à réfléchir à quel numéro de colonne c'est puisque le fonctionnel l'emporte.

Ca ne veut pas dire que tu ne peux plus utiliser les numéros de colonne ! :)
03/12/2006, 11h50
zx10
Bonjour,

Merci à vous pour vos conseil.
Tu as raison ProgElecT pourquoi pas :roll: c'est plus court comme tu dis:lol:
Par contre Vld44, j'ai du merdoyer quelque part car quand je met
Code:

1 2 3 Set liMyListItem = ListView1.ListItems.Add(, , "") liMyListItem.ListSubItems.Add 8, , b
Il me marque index hors limite.
Est ce un Pb de parametrage de colonne?
Merci.
03/12/2006, 18h24
Vld44

visiblement il n'y a pas 8 colonnes ... ou alors l'index de la 8° est le "7" je ne sais pas

Ben non justement car quand je fais:
Code:

1 2 3 4 5 For i = 1 To 7 liMyListItem.ListSubItems.Add(i) = "" Next i liMyListItem.ListSubItems.Add(8) = b
Ca marche et l'index est bien le 8:?

04/12/2006, 14h41
Vld44

ok alors au temps pour moi apparemment ce n'est pas parceque tu as 8 entêtes de colonnes que tu as nécessairement 8 colonnes.

Il faut avoir remplit les 7 premières pour que la 8° marche ... donc ma suggestion ne sert à rien :)
04/12/2006, 16h58
zx10

Bonsoir,
Mais si ca sert.
Au moins on sait que ca marche pas :mouarf:
Encore Merci pour tout.