Re : Formules pour calculer des couleurs me semble bien longue..
bonsoir pierrejean
et bien la voici.. (je l'ai trouvé sur ce site , encore merci' , mais j'ignore complètement le nom de l'auteur)
Function SumColorIfvariable(Plage_à_compter As Object, Plage_de_référence As Object, _
cellule_couleur As Range, Référence_cherchée As String) As Integer
On Error GoTo suite
Application.Volatile False
MaRef = False
SumColorIfvariable = 0
MaCoul = cellule_couleur.Interior.ColorIndex
For Each cell In Plage_à_compter
If cell.Interior.ColorIndex = MaCoul Then
maligne = cell.Row
For Each C In Plage_de_référence
If C.Row = maligne Then
If C.Value = Référence_cherchée Then
SumColorIfvariable = SumColorIfvariable + 1
End If
End If
Next
End If
Next
suite:
Exit Function
End Function