La somme des lignes séparées

Bonjour les amis

j’espère que vous allez bien

j'ai un petit souci sur VBA que je n'arrive à trouver de solution :

j'ai saisie mes donnes dans feuille Excel par un formulaire et j'ai envie de calculer la somme correspond de chaque élément sans avoir ajouter la somme de l'élément qui le précède.

tot el1 = somme des nombres de el1 seul

tot el2 = = somme des nombres de el2 seul

etc ..

et en suite renvoyer la somme totale S = tot el1 + tot el2 + …

comment je peux programmer ce truc

j'ai essayer ce code :

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

mais çà me donne la somme de toutes les lignes et même prend en considération la somme calculée dans les cases vides.

ce que je cherche c'est a chaque fois il calcul la somme il descend pour calculer la somme des autres éléments comme dans le fichier excel en PJ.

j'ai essayer ce code mais ça ne marche pas aussi :

private Sub CommandButtonCG_Click()
Dim i As Integer
Sheets("SourceG").Select

With ActiveSheet

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row + 1

If Cells(i, 1) = "" And Cells(i, 2) = "" Then

a = .Range("C" & i).CurrentRegion.Rows.Count
.Cells(a + 1, 2).Value = "S/Total"

.Cells(a + 1, 3).Value = Application.WorksheetFunction.Sum(Range(Cells(i, 3), Cells(a, 3)))

end if

next i

end with

end sub

HELP ME PLEAAASE je suis bloqué :'(

Bonjour,

Pour ma part, je n'ai rien compris . Je ne sais pas où se passe quoi. Mais, si il s'agit de sommer des lignes paires ou impaires, il y a entre autres la solution d'utiliser l'opérateur modulo.

if i mod 2 = 0 then 'i est une ligne, tantot paire, tantot impaire
    nombre = cells(i, 1).value 'nombre vaut la cellule de la ligne paire en cours (les impaires sont ignorees)
    somme = somme + nombre 'nombre est rajoutée à la somme pré-existante
end if

Sinon, je suis totalement à côté, désolé

Cdlt,

Moi je n'ai rien compris dans ce code.

mais dit-moi exactement qu'est ce que tu n'as pas compris et je vous passe la connexion.

Bonjour Hemed, 3GB, le forum,

Un simple TCD devrait répondre à ta demande....si le résultat souhaité est la somme de chaque élément....

Cordialement,

bonjour xorsankukai

en peu d'explication SVP

C'est le commentaire et le besoin que je n'ai pas compris :

j'ai saisie mes donnes dans feuille Excel par un formulaire et j'ai envie de calculer la somme correspond de chaque élément sans avoir ajouter la somme de l'élément qui le précède.

tot el1 = somme des nombres de el1 seul

tot el2 = = somme des nombres de el2 seul

etc ..

J'ai l'impression que l'exposé du problème est plus compliqué que le problème lui-même.

Mais il est vrai que j'ai probablement répondu trop vite et je n'ai pas regardé ton fichier, je le reconnais...

Bon courage en tout cas,

Edit : Salut Xorsankukai

Re,

en peu d'explication SVP

C'est bien le résultat voulu ?

1) Tu mets tes données sous forme de tableau structuré: tableau structuré

2) Tu crées ton tableau croisé dynamique: TDC

3) Tu rajoutes cette macro dans le module de la feuille pour actualiser le TDC à chaque changement.

(bien entendu, il faut adapter le nom de la feuille ainsi que celui du TDC).

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 Application.EnableEvents = False
  Sheets("Feuil1").PivotTables("TCD").RefreshTable
 Application.EnableEvents = True
End Sub

EDIT: Je constate que tu as préféré ouvrir un autre post: https://forum.excel-pratique.com/excel/calculer-la-somme-des-lignes-indepandant-des-autres-147371

Pense à clôturer celui-ci afin d'éviter aux autres membres de perdre leur temps....

Cordialement,

bj Xorsankukai

mais la feuille devrait être protéger et j'ai l'accès que par formulaire de saisie

et je cherche à programmer ce calcul dans un botton de commande pcq le calcul sera plus devélopper que cela

merci

Bonjour hemed, 3GB, le forum,

MP:

Bonjour mon ami

concernant le truc du TCD je n'arrive pas a actualiser mon tableaux sachant que j'ai deux feuilles l'une contienne le tableau structuré et l'autre contienne le TCD et j'ai mis le code dans les deux feuilles mais ca ne change rien.

aussi je cherche a ouvrir ce TCD par bouton commande et elle sera protégée

merci de votre aide.

Vois si l'exemple joint peut t'aider.....

Le mot de passe de la feuille" testTCD" est hemed....

• Le bouton "TCD" affiche la feuille "testTCD".

• Le TCD s'actualise à l'activation de la feuille "testTCD".

Cordialement,