Totaliser cellules coloriees

Résolu
CALI -  
 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

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour,

Les couleurs sont mises manuellement ou par MFC ?

Quelle est ta version excel ?
0
CALI
 
bonjour,

Excel 2007 et les couleurs sont mises manuellement.

Merci
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Salut,

Pour les couleurs saisies manuellement il faut passer par le VBA, si tu as quelques notions.
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
CALI
 
Bonjour et merci.
0