Cumuler le résultat de trois macros

Bonjour à tous,

J'ai un petit tableau dans lequel j'insère des couleurs dans les cellules, comme vert pour présent, Rouge pour absent et bleu pour absent justifié,, J'ai trois petites macros qui me comptabilisent le nombre de chaque couleur, mais j'aimerais réunir les trois macros en une seule, j'ai essayé, mais le résultat est cumulé.

Je joins mon petit fichier pour exemple.

Merci de bien vouloir m'aider.

Papy Pierrot

Bonjour,

Remplace les trois macros par celle-ci

Sub NombredeCellulesvertes()
'DAn - 13/05/13
Dim Cellule As Range
' Zone B5:G27
For Each Cellule In Range("Noms")
    Select Case Cellule.Interior.ColorIndex
        Case Is = 4: Range("J8") = Range("J8") + 1 'Vert
        Case Is = 5: Range("J12") = Range("J12") + 1 'bleu
        Case Is = 3: Range("J10") = Range("J10") + 1 'rouge
    End Select
Next
End Sub

Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil lors de ta réponse

Amicalement

Bonjour, Dan

Un tout grand merci, cela fonctionne à merveille

Un gros bisous de

Papy Pierrot