somme conditionnelle sous VBA

[léclaireur]

Bonjour,

Quelqu'un sait-il comment sommer l'ensemble des valeurs contenues dans les cellules d'une colonne X, à la condition que ces cellules soient de couleurs rouge par exemple?
D'avance merci.

Voici un début de tentative:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TotalValeurDevis()
Dim i, j, k As Integer
 
'je commence à partir de A7, volontairement
i = Range("A7").End(xlDown).Value
 
 
k = SumIf(Range("G7:G" & i), Interior.Color = 3, Range("G7:G" & i))
'la msgbox m'indique k = 0...
MsgBox k   
...
 
End Sub

[illight]

déja tu as oublié de mettre les balises code, ça serait plus lisible

Envoyé par léclaireur

Bonjour,

Quelqu'un sait-il comment sommer l'ensemble des valeurs contenues dans les cellules d'une colonne X, à la condition que ces cellules soient de couleurs rouge par exemple?
D'avance merci.

Voici un début de tentative:

Code :

Si tu veux mettre une ofrmule, tu n'as aucune chance d'y arrive, il faut faire la somme par macro, tu y arrivera mieux, un truc de ce genre :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub TotalValeurDevis()
Dim i, k As long
k = 0
'je commence à partir de A7, volontairement
for i = 1 to Range("A7").End(xlDown).row
    if cells(i,7).interior.colorindex = 3 then
             k = k + cells(i,7).value
   end if
next i
msgboxk
 
End Sub

Tu dis, je l'ai écrit à la va-vite, sans vraiment tester

[léclaireur]

Re,

La MsgBox, m'indique toujours k =0.

Pourquoi dis-tu qu'en mettant une formule, cela ne marchera pas; je ne vois pas pourquoi.

[illight]

Je viens de tester ma fonction, ça marche très bien chez moi

Il faut peut etre que tu modifie certains paramètres pour que ça prenne en compte les cellules que tu veux addtionner

Pour la formule, je crois qu'il est pas possible, avec une formule, de mettre une condition sur une cellule colorée ou non, mais j'en suis pas sur

[léclaireur]

Si si t'as raison, ça marche
j'ai trouvé mon étourderie,
Si ttes les cellules sont en blancs, c'est un peu normal qu'il m'affiche 0...

[illight]

Effectivement

oublie pas le ptit tag Résolu