Calcul de plusieurs Colonne dans une listview.

Version imprimable

Bonjour a toutes et tous.

Je cherche a faire la somme de plusieurs colonne cote a cote d'une listview (Colonne 13 a 20) et que se résultat aille se mettre dans une feuile en cellules B3 a I3

J'utilise donc ce code que j'ai tenté d'adapter a mon besoin
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Recapitulatif_De_La_Commandes() Dim k As Long, m As Byte, Col As Byte, Total_Commande As Currency Dim controls As Control Col = 12 With USF_GestionClient.ListView1 For m = 1 To 8 For k = 1 To .ListItems.Count If .ListItems(k).ListSubItems(Col).Text <> "" Then Total_Commande = Total_Commande + .ListItems(k).ListSubItems(Col).Text Next With Sheets("Récap Cde") .Range("B5" & Col).Value = Total_Commande End With Total_Commande = 0 Col = Col + 1 Next End With End Sub
Le soucis est que le calcul se fait (Sauf que je ne souhaite pas le signe €), mais que les résultats se mettent a partir de B512 a B519

Alors le pourquoi du départ en B512, je ne comprend pas, encore cela se mettrais en B5 et jusqu'a B13 ok, je dirais que quelque chose déconne dans le sens que je veux donner a l'ajout dans les autres colonnes, mais la...

Une idée?

Par avance merci, Le Lighteux

Hello le forum

Bon j'ai trouvé déjà pourquoi la premiere donnée ne se mettais pas au bon endroit, une variable que je mettais afin de vouloir incrémenter les données suivant dans la colonne d'a coté, mais cela n'était pas bon.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Recapitulatif_De_La_Commande()
 
Dim k As Long, m As Byte, Col As Byte, Total_Commande As Currency
Dim controls As Control
 
Col = 12
 
With USF_GestionClient.ListView1
   For m = 1 To 8
        For k = 1 To .ListItems.Count
            If .ListItems(k).ListSubItems(Col).Text <> "" Then Total_Commande = Total_Commande + .ListItems(k).ListSubItems(Col).Text
        Next
            With Sheets("Récap Cde")
                .Range("B5").Value = Total_Commande
            End With
      Col = Col + 1
      Total_Commande = 0
   Next
End With
End Sub

je vais y arrivder, lol.

Merci

Cc, le forum, Le Lighteux (lol)

Bon j'ai réglé une partie du problème.

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
Option Explicit
 
'    Feuille.
 
 
Sub Recapitulatif_De_La_Commande()
Dim k As Long, m As Byte, Col As Byte, y, Total_Commande As Currency
Dim controls As Control
 
Col = 12
 
y = 2
 
With USF_GestionClient.ListView1
   For m = 1 To 8
        For k = 1 To .ListItems.Count
            If .ListItems(k).ListSubItems(Col).Text <> "" Then Total_Commande = Total_Commande + .ListItems(k).ListSubItems(Col).Text
        Next
            With Sheets("Récap Cde")
                .Cells(5, y).Value = Total_Commande
 
            End With
      Col = Col + 1
      y = y + 1
      Total_Commande = 0
   Next
End With
End Sub

Plus qu'a viré le € dans ma cellule.

Merci.

20/04/2020, 13h53
Lighteux26

CC

Bon je cherchais compliqué alors qu'il suffisait de mettre le bon format dans les cellules, car ensuite je ne fais que effacer celles-ci et remplir a nouveau.

Merci.