Comptage des cellules colorées

Bonjour,

Dans mon classeur Excel, sur ma feuille principale, j'ai créé un bouton avec code, lequel me permet d'être averti du nombre de cellules en rouge de chaque feuille du classeur (en me basant sur la colonne F).

Sub ChercheCouleur()

Dim Coul&, c&, rg As Range, sh As Worksheet

Coul = 3

For Each sh In ThisWorkbook.Worksheets

c = 0

For Each rg In sh.Range("F2:F34")

If rg.Interior.ColorIndex = Coul Then c = c + 1

Next

MsgBox "Il y a " & c & " retards sur la feuille " & sh.Name

Next

End Sub

J'ai un message : Erreur de compilation End Sub attendu après Private Sub CommandButton24_click()

Lorsque je mets End Sub, cela ne fonctionne pas.

J'ai plusieurs onglets dans mon classeur, y-a-t'il moyen de n'avoir qu'un seul MsgBox qui afficherait les infos de toutes les feuilles ?

ex. : Divers 1 retards

Magasin : 3 retards, ......

Merci

Bonne journée

Bonsoir,

Ci-joint une proposition à tester

Bouben

Bonjour

essaye d'utiliser les balises codes lorsque tu mets un code justement...

ci joint une proposition :

Sub ChercheCouleur()
Dim Coul&, c&, rg As Range, sh As Worksheet
dim message as string
Coul = 3
For Each sh In ThisWorkbook.Worksheets
c = 0
For Each rg In sh.Range("F2:F34")
          If rg.Interior.ColorIndex = Coul Then c = c + 1
Next
Message = message & Il y a " & c & " retards sur la feuille " & sh.Name & vbcr
Next
MsgBox message 
End Sub

Fred

Merci pour les réponses.

Il reste juste un problème : les cellules des feuilles 2 et 3 ne sont pas prises en compte par le MsgBox

Bonsoir,

Fonctionne uniquement avec la couleur de la cellule !

Ici, c'est une mise en forme conditionnelle, donc ne fonctionne pas ...

D'où l'utilité d'un fichier en PJ ...

On regarde ce qu'on peut faire

EDIT :

Dans ce cas, inutile de tester la couleur de la cellule, mais directement la condition, beaucoup plus simple

Vérifier toutes les cellules pour lesquelles la date est dépassée.

Ca change complètement la nature du problème ...

Bouben

un super grand merci

EDIT:

cela devient compliqué pour moi..... lolll

Ci-joint une V0.1 à tester

Bouben

ça marche !!!!

Un immense merci.

Un vrai chef !

Encore merci.

Bonne soirée

Super !

Une précision quand même :

La condition est ré-écrite dans le code VBA. Il n'y a plus de lien entre la condition utilisée dans la MFC et le résultat.

Si demain, tu changes ta condition (exemple : date dépassée de 7 jours), il faudra aussi modifier le code pour mettre la même condition.

Bouben

OK, un grand merci