VBA - Faire une somme de somme

Grand Chaman Excel

XLDnaute Impliqué

• 1 Septembre 2011

• #2

Re : VBA - Faire une somme de somme

Bonjour,

Tu utilises la propriétés d'un range .SpecialCells(xlcelltypeFormulas).

Au plus simple, ça donne :

Code:

[C8] = WorksheetFunction.Sum([C9:C1000].SpecialCells(xlCellTypeFormulas))

Pour faire la somme sur la plage C9:C1000

À adapter à ton code.
A+

 

Vote positif 0 Vote négatif

E

Excelced

XLDnaute Junior

• 1 Septembre 2011

• #3

Re : VBA - Faire une somme de somme

Merci pour ton aide

ExcelCed

 

Vote positif 0 Vote négatif

E

Excelced

XLDnaute Junior

• 1 Septembre 2011

• #4

Re : VBA - Faire une somme de somme

J'ai essayé de l'adapter de la façon suivante
mais je dois avoir une erreur de syntaxe car il me dis "objet requis"

Code:

For i = 12 To 23
        Cells(8, i) = WorksheetFunction.sum([cells(9,i):cells(2000,i)].SpecialCells(xlCellTypeFormulas))
    Next i

 

Vote positif 0 Vote négatif

E

Excelced

XLDnaute Junior

• 1 Septembre 2011

• #5

Re : VBA - Faire une somme de somme

Après plusieurs essais différents, je ne trouve toujours pas la soluce

 

Vote positif 0 Vote négatif

Grand Chaman Excel

XLDnaute Impliqué

• 2 Septembre 2011

• #6

Re : VBA - Faire une somme de somme

Bonjour,

Le problème est que tu as mal défini la plage. Il faut la définir ainsi :

Code:

Cells(8, i) = WorksheetFunction.Sum(Range(Cells(9, i), Cells(2000, i)).SpecialCells(xlCellTypeFormulas))

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Septembre 2011

• #7

Re : VBA - Faire une somme de somme

Bonjour Excelced, Grand Chaman

ceci devrait également fonctionner :

Code:

Cells(8, i) = Application.Sum(Cells(9, i).Resize(1992).SpecialCells(xlCellTypeFormulas))

bonne journée
@+

 

Vote positif 0 Vote négatif

E

Excelced

XLDnaute Junior

• 2 Septembre 2011

• #8

Re : VBA - Faire une somme de somme

Merci à vous, ça marche mieux comme ça 🙂
bonne journée

Excelced

 

Vote positif 0 Vote négatif