Bonjour,
votre couleur est-elle issue d'une MFC ?
Ou est-ce une couleur "en dur" dans la cellule ?
Si c'est issue d'une MFC, avec Excel 2019 je crois qu'il existe cette instruction pour pouvoir la tester :
Selection.DisplayFormat.Interior.Color
où évidemment "Selection" correspond à la cellule testée.
Sinon vous pouvez vous créer une fonction personnalisée :
dans un module standard, créez par exemple une fonction :
Function Compt_Coul(La_Plage As Range)
Application.Volatile
Dim Cel As Range, Cpt
For Each Cel In La_Plage
If Cel.Interior.Color = RGB(255, 0, 0) Then Cpt = Cpt + Cel.Value
Next Cel
Compt_Coul = Cpt
End Function
RGB(255,0,0) correspond à du rouge...
Le fichier :
@ bientôt
LouReeD