somme en VBA

[bbobb]

bonsoir le forum,
J'ai fait des recherche mais je coince!!!

Je cherche a faire la somme d'une colonne en VBA, mais avec la syntaxe ci-dessous, la macro me donne le double du bon résultat....
J'ai mis le fichier pour être clair...

lig_ens = 3
Do
lig_ens = lig_ens + 1
Loop Until Cells(lig_ens, 1) = ""
For i = 1 To Range("A65535").End(xlUp).Row
Cells(lig_ens, 2) = Cells(lig_ens, 2) + Cells(3 + i, 2).Value
Next


Merci d'avance pour votre aide
bbobb

 

[Papou-net]

Re : somme en VBA

Bonsoir bbobb,

Pourquoi te compliquer la vie avec une boucle ?

Une fonction native d'Excel fait cela tout aussi bien et plus rapidement :

Sub total()
Dim lg As Long

lg = Range("A" & Rows.Count).End(xlUp).Row
Cells(lg + 1, 2) = Application.Sum(Range("B4:B" & lg))
End Sub

Cordialement.

 

[DoubleZero]

Re : somme en VBA

Bonjour, bbobb, le Forum,

Peut-être de la sorte :

Sub Total()
Range("b65536").End(xlUp).Offset(1, 0) = Application.Sum(Range("b:b"))
End Sub

A bientôt 🙂

P. S. : Re-bonjour, Papou-net 😀

 

[Papou-net]

Re : somme en VBA

Re-bonsoir 00,

Ta solution est plus courte et marche tout aussi bien. Je pensais qu'additionner la colonne entière doublerait également le résultat mais après réflexion, il n'en est rien puisque le calcul du total se fait avant l'affichage du résultat.

Bravo à toi, tu m'as brouté l'herbe sous le pied mais je suis très, vraiment très, content de te recroiser à nouveau.

Bisous 🙂🙂🙂

 

[DoubleZero]

Re : somme en VBA

Re-bonjour,

...Ta solution est plus courte et marche tout aussi bien...

Merci, Papou-net, mais... si bbobb insère des données en b2 et b3 qui ne doivent pas être totalisées... rien ne va plus 😱 ! Alors que ton code écarte ce risque...

Double bise 😀😀

 

[bbobb]

Re : somme en VBA

Bonsoir messieurs,
Je suis ravi d'avoir participé à vos retrouvailles...
Ravi également d'avoir encore apris sur ce forum.

Merci beaucoup
bonne soirée
bbobb

 

[laurent950]

Re : somme en VBA

Bonsoir Le Forum, les experts,

Juste une autres solution qui peut être pas mal :

 Sub test()
 Dim wkb As Workbook
 Dim wksf1 As Worksheet
 Dim pl As Range
 
 Set wksf1 = Worksheets("Feuil1")
 
' somme plage
 Set pl = wksf1.Range(wksf1.Cells(1, 2), wksf1.Cells(65536, 2).End(xlUp))
 
 wksf1.Cells(65536, 2).End(xlUp)(2) = "=Sum(" & pl.Address & ")"
 
 Set pl = Nothing
 End Sub

Laurent