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