Fonction somme avec Range variable

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 20 Août 2015

• #2

Re : Fonction somme avec Range variable

Bonjour,

Exemple:

Pour des nombres à partir de A5

Code:

Sub EcritSomme3()
  [A65000].End(xlUp).Offset(1, 0).Select
  ActiveCell = "=SUM(A5:A" & ActiveCell.Offset(-1, 0).Row & ")"
End Sub

http://boisgontierjacques.free.fr/fichiers/Divers/EcritFormuleSomme.xls

JB

 

Dernière édition: 20 Août 2015

Vote positif 0 Vote négatif

P

petedesky

Guest

• 20 Août 2015

• #3

Re : Fonction somme avec Range variable

Coucou,

MERCCCCIIII on y est presque comment je fais si A5 est variable ?

En fait imagine que en A1,A2,A3, A4 il y a des données et que ça peut s'étendre jusu'a Ax. Du coup A5 se retrouve a Ax +1

toute les lignes qui sont en dessous de la zone où je veux faire la somme seront toujours vide

Encore merci pour ton aide

 

Dernière modification par un modérateur: 20 Août 2015

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 20 Août 2015

• #4

Re : Fonction somme avec Range variable

Code:

Sub EcritSomme3()
  deb = [A1].End(xlDown).Row
  [A65000].End(xlUp).Offset(1, 0).Select
  ActiveCell = "=SUM(A" & deb & ":A" & ActiveCell.Offset(-1, 0).Row & ")"
End Sub

JB

 

Pièces jointes

• EcritFormuleSomme-1.xls

  40 KB · Affichages: 25

Vote positif 0 Vote négatif

P

petedesky

Guest

• 20 Août 2015

• #5

Re : Fonction somme avec Range variable

C'est énormmmee (pour moi),

Merci mille fois j'arrive au bout de ma macro. 🙂

A bientôt

 

Vote positif 0 Vote négatif