Re : somme des cellules avec valeur en ecart
excusez moi encore, je n'ai pas trés bien expliqué mon probleme
en fait j'ai plus de 600 lignes à traiter et ecart fais parti d'un onglet sur lequel je travaille.
Voci la macro que j'essaie d'ecrire mais je n'arrive pas à la faire marcher car je sais qu'il y a des choses qui vont pas et je sais pas quoi exactement
Function SommeCouleurFondRef(champ As Range)
Application.Volatile
Dim c, temp
Dim i As Long
Dim j As Long
temp = 0
For Each c In champ
For i = 5 To 20
For j = 1 To 14
If actvesheet.Cells(i + 3, j) = "Ecart" Then
If ActiveSheet.Cells(i + 3, j + 2) < 0 Then
temp = temp + c.Value
End If
Next c
SommeCouleurFondRef = temp
activesheet.cells(20, j)=temp
End Function