somme d'une colonne en VBA

phlaurent55

Nous a quittés en 2020

Repose en paix

• 22 Janvier 2018

• #2

Bonjour Chantal,

peut-être plus simple avec ceci:

Code:

Sub somme()
Range("B" & Range("B66535").End(xlUp).Row + 1).Value = Application.WorksheetFunction.Sum(Range("B2:B" & Range("B65535").End(xlUp).Row))
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

C

ChantalTreize

XLDnaute Occasionnel

• 22 Janvier 2018

• #3

Désolée ça ne passe passe pas
il me dit que Range "Range("B65535" erreur 1004 la méthode Range à échoué

CD

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 22 Janvier 2018

• #4

bonjour
Chantal,tu reprends la cellule(qui contiendra la somme) dans la somme
écrit FinLigneB-1 à la fin

Code:

Application.WorksheetFunction.Sum(Range("B2:B" & FinLigneB-1))

 

Vote positif 0 Vote négatif

C

ChantalTreize

XLDnaute Occasionnel

• 22 Janvier 2018

• #5

Merci ça fonctionne très bien
Chantal

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Janvier 2018

• #6

Bonsoir le fil, le forum

Une variante d'écriture

VB:

Sub SommeB()
Cells(Rows.Count, 2).End(3)(2) = Application.Sum(Range(Cells(2, 2), Cells(Rows.Count, 2).End(3)))
End Sub

 

Vote positif 0 Vote négatif

C

ChantalTreize

XLDnaute Occasionnel

• 23 Janvier 2018

• #7

Merci pour cette variante
Chantal

 

Vote positif 0 Vote négatif