somme d'une colonne en VBA

[ChantalTreize]

Bonjour à tout le monde
Je cherche à faire la somme d'une colonne en VBA
mon code que voici plante et je ne vois pas où
Sub somme()
' Calcul total CA

Range("B2").Select
FinLigneB = ActiveSheet.UsedRange.Rows.Count + 1
Range("B" & FinLigneB).Value = Application.WorksheetFunction.Sum(Range("B2:B" & FinLigneB)) ' Formule somme chiffrée
Range("B" & FinLigneB).Font.Bold = True 'Texte en gras
Range("B" & FinLigneB).Style = "Currency" ' cellule en €

End Sub

Merci d'avance pour votre aide
Chantal

 

[phlaurent55]

Bonjour Chantal,

peut-être plus simple avec ceci:

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

 

[ChantalTreize]

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

CD

 

[Bebere]

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

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

 

[ChantalTreize]

Merci ça fonctionne très bien
Chantal

 

[Staple1600]

Bonsoir le fil, le forum

Une variante d'écriture

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

 

[ChantalTreize]

Merci pour cette variante
Chantal