Discussion :

[eliot.raymond]

Bonsoir a tous et toutes forum,

Voila je somme ces 3 colonnes separement, ma question peut'on simplifier ce code sans pertuber les resultats d'une ou l'autre de ces colonnes E I J

Avec beaucoup de SVP et bien sur merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("E28") = Application.WorksheetFunction.Sum(Range("E2:E27"))
Range("I28") = Application.WorksheetFunction.Sum(Range("I2:I27"))
Range("J28") = Application.WorksheetFunction.Sum(Range("J2:J27"))

Bonne soirée Raymond

[Qwazerty]

Salut
A mon avis ses 3 lignes sont deja très réduite, je doute que tu puisses les scinder et ca n'apporterai sans doute pas grand chose.
a++
Qwaz

[eliot.raymond]

bonsoir Qwazerty

Merci pour la reponse, comme je debute en VBA, je pensai vu le repetitif du code pouvoir simplifier

pourquoi une usine a gaz , quand on a besoin d'un tuyau

Bonne soirée merci bien

Raymond

[Pierre Fauconnier]

Bonjour,

Au mieux, pour des questions de lisibilité, peux-tu faire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    With Application.WorksheetFunction
        Range("E28") = .Sum(Range("E2:E27"))
        Range("I28") = .Sum(Range("I2:I27"))
        Range("J28") = .Sum(Range("J2:J27"))
    End With

Mais si on doit commencer à se gratter pour si peu... (ou alors, tu ne nous dis pas tout...)