calcul de la somme de plusieurs colonnes Résolu/Fermé

Question

Bonjour, 
Pourriez vous m'indiquer comment faire la somme de chaque colonne à partir
de la colonne E sur la même dernière ligne vide

je peux le faire sur une colonne avec

Range("E" & Cells.Find("*", , , , , xlPrevious).Row + 2) = Application.Sum(Range(E5).EntireColumn)

mais je voudrais que ce code s'applique à une rangée de cellules disons de E:G

merci

Configuration: Windows / Mozilla 11.0

jc80 · Answer

Bonjour

A tester

Option Explicit
Sub *****()
Dim Fin As Long, Liste As Range
Fin = Columns("B").Find("*", , , , , xlPrevious).Row
Set Liste = Range("E2:G" & Fin)
Range("E1") = Application.Sum(Liste)
End Sub

Cordialement

max850 · Answer

bonjour jc80

non je ne récupère aucune somme

jc80 · Answer

Tu veux la somme des 3 colonnes dans quelle cellule?

max850 · Answer

non je veux la somme de chaque colonne a partir de la colonne E jusqu'à la colonne G sur la dernière ligne vide de ma feuille


si ma dernière ligne vide correspond à E10 je veux la somme de la colonne E en E10, la somme de la colonne F en F10, G en G10

michel_m · Answer

Bonjour Max, Jv
Option Explicit'----------------------------------Sub totaliser_colonnes()Dim Derlig As Integer, DerCol As Integer, Lig As Integer, Col As Integer    Application.ScreenUpdating = False        With ActiveSheet        Derlig = .Columns("E").Find(what:="*", searchdirection:=xlPrevious).Row        DerCol = .Rows(5).Find(what:="*", searchdirection:=xlPrevious).Column        Lig = Derlig + 1        For Col = 5 To DerCol            .Cells(Derlig, Col) = Application.Sum(.Range(.Cells(5, Col), .Cells(Derlig, Col)))        Next    End WithEnd Sub 
 
 Michel

max850 · Answer

Michel merci pour ta contribution

j'ai placé ta procédure dans mon programme mais sans succès
je t'envoie le fichier pour que tu puisses y voir plus clair

merci




https://www.cjoint.com/c/FADpY6ztf1v

Le Pingou · Answer

Bonjour,
Juste en passant,  en admettant que ce soit sur la feuille [journalrecette] dont vous parlez, il n’y a aucun besoin de faire des totaux de colonne avec une macro, un simple : SOMME(E4 :E21] dans la cellule [E23] suffit.
Ou alors vos explications ne sont pas correctes… !

max850 · Answer

bonsoir Le Pingou
en postant ce sujet je ne pensais pas soulever une telle montagne. Sans doute que mes explications n'étaient pas assez claires. j'en suis vraiment très confus

si nous prenons la feuille journalrecette 
je voudrais que chaque fois que je rentre une information via mon userform dans la colonne E F G H I J ou K ou sur les 5 colonnes le total de chaque colonne systématiquement s'affiche sur la dernière ligne vide de l'ensemble de ces colonnes. S i l'une des colonne est vide s'affichera 00.00. ces totaux seraient réactualisés donc à chaque entrée d'info 

ceci à partir de la colonne E jusqu'à la colonne K et de la ligne A3 jusqu'à la dernière ligne non vide
je ne travaille pas directement sur la feuille mais via un userform  

supposons  que la dernière info soit entrée en E7 et que la dernière ligne vide soit donc la ligne A8
les totaux de chaque colonne E F G H I J OU K s'inscriront dans E8 F8 G8 H8 I8 J8 K8

En appuyant sur le bouton de commande de mon userform
je renseigne les différentes colonnes de ma feuille Journalrecette
et je voudrais que cette manip me fasse donc en même temps les totaux de chaque colonne de cette feuille comme expliqué ci-dessus

merci

Le Pingou · Answer

Bonjour,
Merci pour le complément d’information.
En première vue je pense que vous compliquez ce qui est simple.
Je vous donnerai une proposition d’ici lundi.
Bon dimanche.

Le Pingou · Answer

Bonjour,
Juste une question : pourquoi ne pas mettre les totaux directement sous les noms de colonnes… !

max850 · Answer

effectivement pourquoi pas ce serait immédiatement lisible


merci

Le Pingou · Answer

Bonsoir,
Merci

Le Pingou · Answer

Bonjour,
Ma proposition, voir feuille [journalrecette], totaux via fonction [SOMME()].
Votre fichier : https://www.cjoint.com/c/FAFnxyBz7Ms

max850 · Answer

Bonsoir Le Pingou
Votre excellent travail me convient parfaitement. C'est exactement ce que je voulais. j'ai juste ajouté "Report" dans D4 en défusionnant D3

Merci beaucoup beaucoup

je considère donc mon problème comme résolu

Le Pingou · Answer

Merci max850, 
Content pour vous.

Calcul de la somme de plusieurs colonnes

15 réponses

Discussions similaires