Souci avec une fonction

[Hugues]

Bonjour Le Forum

Je souhaiterais connaitre le code qui à l'intérieur d'une sub permet d'additionner les valeurs des cellules antérieures
Par exemple je souhaite que la cellule A10 soit le résultat de l'addition des cellules A1 à A9

Merci par avance,

Hugues

 

[Excel-lent]

Re : Souci avec une fonction

Bonjour Hugues, le fil,

Voici ci-dessous une solution :

Sub Proposition()
[COLOR="Green"]' Macro réalisé par Excel-lent[/COLOR]
Dim Ligne As Integer
Dim Colonne As Integer

Ligne = ActiveCell.Row
Colonne = ActiveCell.Column

For i = 1 To Ligne - 1
    Cells(Ligne, Colonne) = Cells(Ligne, Colonne) + Cells(i, Colonne)
Next i

End Sub

Sinon tu peux aussi utiliser la fonction "SUM" (équivalent de la fonction SOMME mais en language VBA)

Bonne après midi

Cordialement

 

[Cousinhub]

Re : Souci avec une fonction

Bonsoir,

Comme suggéré par Excel-lent (bonsoir, 🙂)

Sub addition()
Dim PremCel As Range, Dercel As Range
Set PremCel = Range("A1")
Set Dercel = Range("A65000").End(xlUp)
Dercel.Offset(1) = Application.Sum(PremCel.Resize(Dercel.Row - PremCel.Row + 1, 1))
End Sub

PremCel que tu peux redéfinir, of corse...

Bonne soirée

 

[Hugues]

Re : Souci avec une fonction

Merci pour votre aide

Hugues