Mesdames, Messieurs les experts VBA.
Je suis à recherche d'une solution permettant de faire une somme dans une cellule donnée, de toutes les valeurs sur une ligne et de répéter cette operation sur les 10 lignes du dessous.
Exemple:
I5 = sum de J5 à jusqu'a derniere cellule non vide de la ligne
I6 = sum de J6 à jusqu'a derniere cellule non vide de la ligne
Function SommeFinCol(xcol As Range)
SommeFinCol = Application.Sum(Application.Caller.Offset(, 1).Resize(, Columns.Count - Application.Caller.Column))
End Function
J'ai mis un paramètre à la fonction pour que la fonction s'actualise quand on insère des colonnes à droite de la cellule où se trouve la fonction.
On appelle donc la fonction par : =SommeFinCol(7:7)si on est sur la ligne 7