Discussion :

[Lighteux26]

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 :

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

[Lighteux26]

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 :

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

[Lighteux26]

Cc, le forum, Le Lighteux (lol)

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

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

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