Somme avec macro

[Cazinos]

Bonsoir le forum,

Je souhaite copier la fonction "somme" avec une macro
en bas des colonnes "débit et crédit"

voir fichier joint merci

Cazinos

 

[BERRACHED said]

Re : Somme avec macro

Salut,Cazinos

un macro avec l'enregistreur

Cordialement

 

[Cousinhub]

Re : Somme avec macro

Bonsoir,

en supposant que toutes les cellules de la colonne E soient complétées, en fonction des mouvements....

Sub somme_vba()
Dim DerLig As Long
DerLig = [E65000].End(xlUp).Row
Cells(DerLig + 1, 8).FormulaR1C1 = "=SUM(R2C8:R" & DerLig & "C8)"
Cells(DerLig + 1, 9).FormulaR1C1 = "=SUM(R2C9:R" & DerLig & "C9)"
End Sub

 

[JCGL]

Re : Somme avec macro

Bonjour à tous,

Je te propose :

Sub Somme()
Range("H334").Formula = "=SUM(R[-332]C:R[-1]C)"
Range("H334:I334").FillRight
Columns("H:I").EntireColumn.AutoFit
End Sub

Dans un module

A+

 

[Cazinos]

Re : Somme avec macro

Merci pour vos réponses

J'ai pas été clair en fait la somme ne se trouve pas toujours sur la même ligne par contre ca démarre toujours à la deuxième ligne.
exemple : somme(H2;Hx) et somme(I2;Ix)

merci

Cazinos

 

[Cousinhub]

Re : Somme avec macro

Re-,

Salut JC 🙂🙂 et Said 🙂

Euh, dans ma réponse, ta dernière ligne est calculée, pour peu que toutes tes cellules de la colonne E soient renseignées....

 

[Lii]

Re : Somme avec macro

Bonsoir,

aussi, pour avoir les sommes sans écrire les formules :

    Li = ... (ligne du dernier terme)
    Range("H" & Li + 1) = Application.WorksheetFunction.Sum(Range("H2:H" & Li))
    Range("I" & Li + 1) = Application.WorksheetFunction.Sum(Range("I2:I" & Li))
    ...

 

[Cazinos]

Re : Somme avec macro

merci c'est parfait

Cazinos

 

[JCGL]

Re : Somme avec macro

Bonjour à tous,

Salut BH² 🙂,

Ça va tellement vite que mon édition serait passée inaperçue...

A ++ 🙂
A+ à tous