Compter des cellules de couleur

Bonjour,

Nous avons un fichier avec nos semaines de présences, TTV et support.

Quand nous sommes de support notre prénom est coloré par semaine.

Je voudrais compter pour chaque personne le nombre de semaine de support.

Il faudrait que le resultat soit dynamique au moment ou on passe la personne en orange car elle est de support.

J'ai essayé de passer par Name Manager en créant un =GET.CELL mais ca ne marche pas en dynamique.

La focntion prend l'information à un moment T et ne cha,ge plus même si onchange la couleur de la cellule.

Merci pour votre aide

Bonjour

Tu devrais joindre ton fichier ou un classeur sur lequel tu auras collé les données de ta feuille...

Bye !

Bonjour Bylbo7,

Pour cela insère en première ligne un ou deux rectangles de couleur selon besoin. La première ligne devra toujours être affichée grâce aux volets.

Le premier rectangle sera de couleur orange et il sera affecté à la macro Orange ci dessous. Dès noms devront être définis auparavant dans le gestionnaire de noms (Name Manager)

Sub Orange()
Activecell.Offset.Intérior.Color = 11389944
Range(Activecell) = Range(Activecell) + 1
End sub

Un rectangle blanc affecté à la macro Blanc ci-dessous fera l'opération inverse. Utile si on s'est trompé par exemple.

Sub Blanc()
If Activecell.Intérior.Color = 11389944 then
Activecell.Interior.color = xlnone
Range(Activecell) = Range(Activecell) - 1
End if
End sub