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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager