Problème avec somme en VBA

[David]

Bonjour cher forumistes.

Vous trouverez ci-joint un exemple de soucis qui me "mine" un petit peu.
Un exemple vaut mieux qu'un long discours, cela se vérifie encore une fois avec ceci.
D'avance je vous remercie et sais que vous ne mettrez pas longtemps avant de venir à bout de cela.
Merci

 

[kad]

Bonsoir,

je n'ai pas tout compris mais voici une solution certaine pour faire une somme de toutes les cellules en B19...

Sub Somme_Totale

Range("B19").Value = Application.WorksheetFunction.Sum(Range(Range("B2"), Range("B2").End(xlToRight).End(xlDown)))

End Sub

A disposition pour plus d'informations !

Clément

"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème."

 

[Toto le héros]

Salut,

Si tu regardes le résultat de ta macro dans la cellule, tu vois de suite pourquoi ça ne marche pas .... un petit effort !

 

[Michel_M]

Bonsoir

Ci joint proposition mais je ne suis pas trop sûr d'avoir pigé ta question (je ne suis pas un héros)

Michel

 

[David]

Bonjour à tous,


J'essaie de m'expliquer autrement,
En fait, mon tableau(non précisé ici) fonctionne en jours ouvrés.

Chaque lundi, je veux faire une une synthese portant sur quelques lignes(dans mon exemple, on prend dans la ligne 4, la première cellule vide de manière à faire la somme des 5 cellules qui se trouvent avant la cellule vide.
dans une autre cellule, je fais la même chose pour une autre ligne.
Je souhaites donc (ex :range("b19").formular1c1 = ????, que je ne sais pas faire.
Ais-je été plus clair ?
Merci de votre aide