Souci avec une fonction

Hugues

XLDnaute Impliqué
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

XLDnaute Barbatruc
Re : Souci avec une fonction

Bonjour Hugues, le fil,

Voici ci-dessous une solution :
Code:
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

XLDnaute Barbatruc
Re : Souci avec une fonction

Bonsoir,

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

Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T