Calcul de la somme de plusieurs colonnes

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

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

bonjour jc80

non je ne récupère aucune somme

Tu veux la somme des 3 colonnes dans quelle cellule?

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

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 With
End Sub

 Michel

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

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… !

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.

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

effectivement pourquoi pas ce serait immédiatement lisible

merci

Bonsoir,
Merci

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

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

Merci max850,
Content pour vous.