Comptage des couleurs

[Jean-Michel]

Bonjour à toutes et à tous !
Dans le tableau "prévision vacances" que Thierry Eygenraam mettait en téléchargement (tableau qui se construit seul, (jours feries compris) lorsque tape la date du premier jour du mois), j'aimerais remplir les cases de chaque personne d'une couleur différente suivant son activité (jaune en vacance, vert travail,...) puis compter mensuellement pour chaque personne le nombre de jours "peints" dans chacune de ces couleurs.
Ce compteur devrait pouvoir etre repris automatiquement lors de la création(automatique) du calendrier du mois suivant, et cela sur un an (voir plus) !!
Voila, à vos plumes..

Je vous remercie d'avance

 

[Ljc]

Ljc

Bonjour

Moi je ne connais pas la réponse,mais je suis interessé par ce tableau

Merci de me donner l'adresse

A+

 

[JMG]

Bonjour Jean michel,

essaye ceci ( les couleurs sont disponible dans l'aide " ColorIndex ")

Sub TotalCellRouge()
Dim Cellule As Range
Dim total As Variant
For Each Cellule In Selection
If Cellule.Interior.ColorIndex = 3 Then 'rouge
total = total + Cellule.Count
End If
Next
MsgBox "Il y a " & total & " Cellules rouges"
Range("A1") = total
End Sub


A+ JMG