Comptage des couleurs

  • Initiateur de la discussion Jean-Michel
  • Date de début
J

Jean-Michel

Guest
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
 
J

JMG

Guest
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
 

Discussions similaires