XL 2010 Sommes avec VBA

[HM67]

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

ect,...

Merci pour votre aide.
HM

 

[job75]

Bonjour HM67,

En I5 =SOMME(J5:XFD5)

A+

 

[job75]

Maintenant si l'on passe son temps à supprimer des colonnes à droite de I5 mieux vaut utiliser :

=SOMME(DECALER(I5;;1;;16384-COLONNE()))

16384 c'est pour les versions postérieures à Excel 2003, sinon utiliser 256.

 

[HM67]

Merci pour cette réponse Job75.
Je pense que ma formulation initiale n'est pas claire.
En fait, j'aurai besoin de cela mais en vb.

 

[mapomme]

Bonjour @HM67, @job75 ,

En remplaçant 16384 ou 16384 par colonnes(A:A), ça devrait le faire non ?
=SOMME(DECALER(I5;;1;;colonnes(5:5)-COLONNE()))

 

[HM67]

Merci pour vos réponses.
Je vais tester tout cela des que possible.

Merci à vous

HM

 

[job75]

En VBA :

With [I5].Resize(11) 'adaptable
    .Formula = "=SUM(" & .Cells(1, 2).Resize(, Columns.Count - .Column).Address(0, 0) & ")"
    .Value = .Value 'supprime les formules
End With

Edit : bonjour mapomme, OK mais 16384 est plus simple que COLONNES(5:5) non ?

 

[mapomme]

Re,

Une fonction personnalisée VBA:

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

 

[HM67]

C'est est parfait.
Un grand merci messieurs pour votre aide.