XL 2010 Sommes avec VBA

job75

XLDnaute Barbatruc

• 16 Décembre 2019

• #2

Bonjour HM67,

En I5 =SOMME(J5:XFD5)

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Décembre 2019

• #3

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

Code:

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

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

 

Vote positif 0 Vote négatif

H

HM67

XLDnaute Nouveau

• 16 Décembre 2019

• #4

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.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 16 Décembre 2019

• #5

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()))

 

Vote positif 0 Vote négatif

H

HM67

XLDnaute Nouveau

• 16 Décembre 2019

• #6

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

Merci à vous

HM
😉

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Décembre 2019

• #7

En VBA :

VB:

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 ?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 16 Décembre 2019

• #8

Re,

Une fonction personnalisée VBA:

VB:

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

 

Pièces jointes

• HM67- somme fin colonne- v1.xlsm

  17.8 KB · Affichages: 9

Vote positif 0 Vote négatif

H

HM67

XLDnaute Nouveau

• 16 Décembre 2019

• #9

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

 

Vote positif 0 Vote négatif