Discussion :

[zx10]

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

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

[ProgElecT]

bonsoir
Pourquoi pas

Code :

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

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

Salut

[Vld44]

je comprends pas trop la syntaxe pour tes subitems

Le code c'est

Code :

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

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 :

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

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 !

[zx10]

Bonjour,

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

Code :

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

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.

[Vld44]

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

[zx10]

Ben non justement car quand je fais:

Code :

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

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

[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

[zx10]

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