Calculer la somme des lignes indépandant des autres
Bonjour les amis
je cherche à calculer la somme correspond de chaque élément sans avoir ajouter la somme de l'élément qui le précède dans le fichier en PJ.
c-à-d :
la ligne vide (ligne 4) je cherche à calculer automatiquement le total des elts1 : Tot = nombre (el1) + nombre (el1)
en suite dans la ligne 7 je cherche à calculer automatiquement le total des elts2 sna tenir compte des ells1 : Tot = nombre (el2) + nombre (el2)
ainsi de suite :
si j'exécute le code suivant :
private Sub CommandButtonCG_Click()
Dim i As Integer
Sheets("SourceG").Select
With ActiveSheet
a = .Range("C2").CurrentRegion.Rows.Count
.Cells(a + 1, 2).Value = "S/Total"
.Cells(a + 1, 3).Value = Application.WorksheetFunction.Sum(Range(Cells(2, 3), Cells(a, 3))
end with
end sub
a chaque fois ile trouve une ligne vide il calcul la somme l'ensemble des valeurs qui le précède : j'ai donné un exemple dans le fichier
SVP AIDEZ MOI
Bonjour Gmb
MErci de votre retour
c'est très proche que ca
MAis si je souhaite a augmenter les colonnes du tableau pour ajouter d'autres calculs
quel changement aurait pu faire
merci de me répondre
Bj GMb
merci de m'expliquer ces lignes :
tablo = Range("A1").CurrentRegion
tot = 0: tablo(UBound(tablo, 1), 3) = 0
For i = 2 To UBound(tablo, 1) - 1
bj gmb
est ce que avant chaque somme je peux ecrire "total"
aussi
pour la cellule B7 je vais laisser la somme.
mais pour C7, D7 et E7 je vais calculer la somme produit
meme chose F7 laisser la somme et les autres somme produit
comment je px changer le syntaxe
Joins un fichier avec un tableau tel qu'il est au départ et un autre tel que souhaité.
Bye !
Désolé, je ne vois pas..
Bye !
Gmb
tu ne vois pas, quoi ?