Faire somme par section dans une colonne

[JORDAN]

Bonsoir tout le monde, le Forum,

Je cherche à effectuer automatiquement plusieurs sommes dans une même colonne, sachant qu'il y a une cellule vide entre le résultat de la somme précédente et le début des données suivantes. Je vous joins un fichier exemple pour plus d'explications. en espérant avoir été assez clair dans ma demande.

Par avance, merci pour votre aide
Cdt

 

[eriiic]

Re : Faire somme par section dans une colonne

Bonsoir,

une proposition par macro vba.
On peut la lancer sur la feuille active (même d'un autre classeur) avec le raccourci ctrl+m.

Par défaut c'est la formule qui est inscrite dans la cellule.
Tu peux mettre la ligne en commentaire et ôter le commentaire de celle qui n'inscrit que le total calculé selon ton besoin.

Je me demande s'il ne faudrait pas ajouter un msgbox au début pour prévenir des mauvaises manip. Tu dis...

eric

 

[Papou-net]

Re : Faire somme par section dans une colonne

Bonsoir JORDAN,

Ton fichier en retour avec une macro attachée au bouton sur la feuille de calcul.

Espérant avoir répondu.

Cordialement.

Oups : bonsoir Eric, grillé d'un pouillième de seconde !

 

[JORDAN]

Re : Faire somme par section dans une colonne

Bonsoir Eric, Papou-net,

Déjà merci à tous les deux pour vos solutions qui me vont parfaitement

Pour Eric :
je préfère la solution sans formule dans la cellule résultat (j'ai tester les 2 solutions)
Qu'entends tu par mauvaise manip ?
Le petit plus "isnumeric" est excellent
Merci pour ton travail

Pour Papou-net :
Solution impec, avec le "isnumeric" d'Eric qui contrôle les données, génial (non précisé dans ma demande)
Merci à toi aussi

Comme je ne sais pas quelle solution choisir, je vais les utiliser toutes les deux dans mes différents fichiers

Cordialement

 

[eriiic]

Re : Faire somme par section dans une colonne

Re à tous,

Qu'entends tu par mauvaise manip ?

Suite à une ctrl+m (bon, faut le faire exprès aussi) être prévenu qu'une macro altérant la feuille va être lancée et demander confirmation. Ca sécurise mais ça fait une validation en plus à chaque fois.

eric

 

[JORDAN]

Re : Faire somme par section dans une colonne

Re,

Oui très bonne idée, mieux vaut une validation supplémentaire et ne pas altérer la feuille
Je vais le rajouter, je sais au moins faire ça !!!

Encore merci et bonne soirée Exceliènne

PS: j'avais réussi à le faire aussi (en piquant quand même ton "isnumeric")mais code peut être pas très normalisé

For I = Range("O65536").End(xlUp).Row To 5 Step -1
    Total = 0
    If Cells(I, 15) <> "" Then
        Total = Cells(I, 15)
        For J = 1 To 1000
            If Cells(I - J, 15) = "" Then
                Cells(I + 1, 15) = Total
                I = I - J - 1
                GoTo Suite1
            ElseIf IsNumeric(Cells(I - J, 15)) Then
                Total = Total + Cells(I - J, 15)
            End If
        Next J
    End If
Suite1:
Next I