Macro nbr cellules police jaune avec conditions
Bonjour à tous,
Je suis débutante en macro (celles qui sont dans mon fichier n'ont pas été faites par mes soins...).
Je souhaiterais compter le nombre de cellules ayant une police de couleur jaune en fonction de critères.
J'ai la macro:
Function NbreCellulesCouleur(Plage As Range, Couleur As Byte) As Long
Application.Volatile
Dim Cellule As Range
For Each Cellule In Plage
If Cellule.Font.ColorIndex = Couleur Then
NbreCellulesCouleur = NbreCellulesCouleur + 1
End If
Next Cellule
End Function
Mais je ne sais malheureusement pas comment la faire fonctionner sur mon fichier (onglets récap/cellules autres).
J'aimerais par exemple connaitre le nombre de cellules ayant une police de couleur jaune pour le 23 mars (idem pour les semaines et les mois).
A la fin de la formule il faudrait que l'on puisse soustraire la somme des agents remplacés pour les ca,jps,rc,ata,alm,atm comme ils seront déjà comptés dans "autres".
Je ne sais pas si mes explications sont claires.
Pourriez-vous m'aider à la mettre en place ?
Un grand merci à ceux qui me viendront en aide
Salut Coconut,
euh, je ne comprends rien à ton tableau!
Je ne vois pas de cellule utilisant de police couleur jaune mais des couleur de fond jaune...
Il te faut un total sur quelle plage dans ta cellule AUTRES ?
Tu as oublié de mettre les points sur les i...
Il faudra être diablement plus précise mais, bon, le monde ne s'est pas fait en un jour!
Ça va aller!
A+