Bonjour à tous !
Voici donc mon petit bout de code servant à calculer les totaux d'un tableaux :
J'arrive à me placer sur la bonne ligne et à donner la valeur qui servira de nom (Total), mais je n'arrive pas à bouclé sur la cellule à droite de la cellule active pour rentrer les valeurs en utilisant la fonction de SOMME (pour i de 0 à 5).
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 Public Sub CalculTotaux() Dim i As Long With Workbooks(NOMFIC).Worksheets(FEUPRP) .Range("C" & .Cells(Rows.Count, 3).End(xlUp).Row + 1).Select Selection.Value = "Total" RESEXE.X = ActiveCell.Row RESEXE.Y = 4 For i = 0 To 5 .Cells(ActiveCell.Column & RESEXE.X).End(xlDown).Select ActiveCell = Application.Sum(.Cells(13, RESEXE.Y), .Cells(RESEXE.X, RESEXE.Y)) RESEXE.Y = RESEXE.Y + 1 Next i End With End Sub
Au passage je veux bien une vérif de mon utilisation de Somme parce que je ne suis pas sur d'utiliser la formule excel ms plutot une fonction ??!
Juste pr illustrer (c'est rudimentaire^^) :
____A______B______C_____D______E_______F
1_Texte1___2______4______6______8______10
2_Texte1___2______4______6______8______10
3_Texte1___2______4______6______8______10
4_Texte1___2______4______6______8______10
5__Total ___8_____16_____24_____32_____40
J'aimerais obtenir la ligne 5, sachant que moi j'arrive à écrire le total de la cellule A5, mais je n'arrive ps à boucler sur ma ligne pr remplir B5,C5,etc...
Merci pour tout,
Peace
Partager