Sum d'une plage en VBA

famu · 21 Février 2013

Bonjour,

Comment indiquer le résultat d'une somme d'une plage variable dans une cellule sans mettre la formule dans la cellule ?
J'ai fait ceci :

Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 6).Range("A1").Select
Fin = ActiveCell.Address
Range("G4").Select
Début = ActiveCell.Address

Comment avoir la somme de la plage "Début" à "Fin" dans la celllue A1 par exemple

Merci pour votre aide,
Famu

Efgé · 21 Février 2013

Re : Sum d'une plage en VBA

Bonjour famu
Avec un petit fichier exemple il est toujours plus simple de tester...
Une proposition:

VB:

Sub test2()
Range("A1") = WorksheetFunction.Sum(Range("G4:" & _
            Range("A4").End(xlDown).Offset(0, 6).Address))
End Sub

Cordialelment

Gareth · 21 Février 2013

Re : Sum d'une plage en VBA

Bonjour à tous,

Ci-joint un exemple à adapter
La définition de tes "Debut" et "Fin" n'est pas tres clair. (Il faudrait fournir un fichier)

Code:

Sub test()
Set Debut = Range("A4")
Set Fin = Range("A4").End(xlDown)
Fin.Offset(1, 0).Formula = "=sum( " & Debut.Address & ":" & Fin.Address & ")"
End Sub

famu · 21 Février 2013

Re : Sum d'une plage en VBA

Merci à vous deux.
Oui, j'avoue. Un fichier aurait aidé à la compréhension.
La solution de Gareth est celle que j'attendais. Elle correspond à 100% à mon besoin.
Très bonne journée et encore merci de m'avoir aidé,
Famu.

Efgé · 21 Février 2013

Re : Sum d'une plage en VBA

Re,
L'important est que ça aille... ...mais
La question:

famu à dit:
...sans mettre la formule dans la cellule ?...

La réponse:

Gareth à dit:
).Formula = "=sum( " & Debut.Address & ":" & Fin.Address & ")"

Cordialement

Sum d'une plage en VBA

famu

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

Gareth

XLDnaute Impliqué

Pièces jointes

famu

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

Discussions similaires