Compter les cellules écrites en rouge [Résolu/Fermé]

Signaler
Messages postés
193
Date d'inscription
jeudi 5 septembre 2019
Statut
Membre
Dernière intervention
9 juin 2020
-
 gyrus -
https://www.cjoint.com/c/IIypPHsBs5c
bonjour a tous
je souhaite compter les cellule écrites en rouge dans un tableau
voir fichier joint ci dessus
merci de votre réponse Super de m'aider

2 réponses

Messages postés
52333
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
26 septembre 2020
14 133
Salut.

Je dois t'avertir que c'est mal parti, pour qu'on puisse t'aider :
  • Ton fichier est en xlsm, mais ne contient aucune macro !
  • Tu as 2 règles de Mise en Forme Conditionnelle, mais les formules concernent les lignes 108 & 113 !
  • Tu as mis tes couleurs manuellement en D3 et F5 ... Si tu avais utilisé une règle de MFC, on aurait pu s'en servir ... Là, tu seras obligé d'écrire un code VBA pour disposer d'une macro !
Bonjour à tous,

Voici pour la macro ...
Sub X_Rouge()
Dim Lig As Range, Col As Range
For Each Lig In Range("B3:F8").Rows
For Each Col In Range("B3:F8").Columns
If Cells(Lig.Row, Col.Column).Font.Color = 255 Then
Cells(Lig.Row, 8) = "X"
Exit For
End If
Next Col
Next Lig
End Sub

Cordialement.