Calcul des cases en rouge

[mcj1997]

Bonjour,

J'ai un planning (une feuille par mois) à la verticale j'ai les jours de la semaine et à l'horizontale le nom des élèves.

Je veux calculer automatiquement les absences du samedi qui sont répertoriées case rouge sur le planning.

Quelle macro est-il possible de faire pour calculer le nombre de case rouge par ligne (par élève) en face uniquement les samedis.

Merci d'avance,

 

[jp14]

Re : Calcul des cases en rouge

Bonjour

Un exemple de procédures qui utilise des couleurs.

https://www.excel-downloads.com/threads/macro-fonction-recherche.112104/

Exemple de fonction personnalisé pour compter des couleurs

champ plage ou se trouve les cellules
Couleurfond valeur numérique de la couleur

Function CompteCouleurFond(champ As Range, couleurfond as integer)
    Application.Volatile
    Dim c, temp
    temp = 0
    For Each c In champ
      If c.Interior.ColorIndex = couleurfond Then
         temp = temp + 1
      End If
    Next c
    CompteCouleurFond = temp
End Function


Compter des couleur avec des caractères "gras"

Function CompteCouleur(champ As Range, couleurfond As Integer, Gras As Boolean)
    Application.Volatile
    Dim cellule, temp
    temp = 0
    For Each cellule In champ
      If cellule.Font.ColorIndex = couleurfond And cellule.Font.Bold = True Then
         temp = temp + 1
      End If
    Next cellule
    CompteCouleur = temp
End Function

Le rouge correspond à la valeur 3

JP

 

[mcj1997]

Re : Calcul des cases en rouge

Bonjour

Un exemple de procédures qui utilise des couleurs.

https://www.excel-downloads.com/threads/macro-fonction-recherche.112104/

Exemple de fonction personnalisé pour compter des couleurs

champ plage ou se trouve les cellules
Couleurfond valeur numérique de la couleur

Function CompteCouleurFond(champ As Range, couleurfond as integer)
    Application.Volatile
    Dim c, temp
    temp = 0
    For Each c In champ
      If c.Interior.ColorIndex = couleurfond Then
         temp = temp + 1
      End If
    Next c
    CompteCouleurFond = temp
End Function


Compter des couleur avec des caractères "gras"

Function CompteCouleur(champ As Range, couleurfond As Integer, Gras As Boolean)
    Application.Volatile
    Dim cellule, temp
    temp = 0
    For Each cellule In champ
      If cellule.Font.ColorIndex = couleurfond And cellule.Font.Bold = True Then
         temp = temp + 1
      End If
    Next cellule
    CompteCouleur = temp
End Function

Le rouge correspond à la valeur 3

JP

Merci mais il faut que les calculs se fassent uniquement pour les cellules qui sont en rouges mais qui ont en haut de colonne "samedi"