Totaliser cellules coloriees

Résolu
CALI -  
Bonjour,

j'ai un tableau avec certaines cellulues coloriées en jaune, d'autres en bleu et d'autres en orange.

Je souhaiterais connaitre le nombre de cellules coloriées (toutes couleurs confondues)

Par avance, merci

5 réponses

  2. michel_m Contributeur
    Bonjour 

    Sub compter_couleur() 
Dim cellule As Range, Total As Integer 

For Each cellule In Range("B3:E14") ' A ADAPTER
     'Totaliser cellules coloriees 
     If cellule.Interior.ColorIndex <> -4142 Then Total = Total + 1 
Next 

MsgBox Total & " Cellules coloriées" 
End Sub


    Michel
    1. Mike-31
      Salut,

      Pour les couleurs saisies manuellement il faut passer par le VBA, si tu as quelques notions.
      3. gbinforme Contributeur
        Bonjour,

        Les couleurs sont mises manuellement ou par MFC ?

        Quelle est ta version excel ?

        Discussions similaires

        Excel : afficher toutes les lignes et colonnes masquées
        livlarsen

        27 réponses
        Reactiver la fusion des cellules, tableau exc
        chector10

        38 réponses
        remettre toutes les colonnes et les lignes masquées
        mousaillon

        4 réponses
        Impossible fusionner cellules
        aubli

        3 réponses
        Fusion de cellules tableau formaté, impossible, bouton grisé
        Polo141

        2 réponses