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