J'ai adapté la fonction personnalisée CompteCouleur à ton cas:
Code:
Function CompteCouleur(champ As Range, couleurFond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond And c.Value = "RDV" Then
temp = temp + 1
End If
Next c
CompteCouleur = temp
End Function
Merci, mjo et sergio mais aucune des 2 ne fonctionnent:
la formule n'est pas reconnue par le fichier: j'ai la formule qui apparait comme un texte quand je l'ecris dans la cellule (j'ai verifié il ni a pas d'espaces avant le =) ou parfois m'ecrit "nom?"
la macro m'ecrit aussi "nom?" dans les cellule si jy laisse ma formule
(=coulfond(w$5:w$29;34)
et rien si les cellule sont vide
de plus cette formule est a reporter pour 6 couleurs possible de cellules
et 5 texte:
RDV, ABS,CAN,RTT,MAL