totaliser cellules coloriees Résolu

Question

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

Configuration: Windows 7 / Internet Explorer 8.0

gbinforme · Answer

Bonjour,

Les couleurs sont mises manuellement ou par MFC ?

Quelle est ta version excel ?

CALI · Answer

bonjour,

Excel 2007 et les couleurs sont mises manuellement.

Merci

Mike-31 · Answer

Salut,

Pour les couleurs saisies manuellement il faut passer par le VBA, si tu as quelques notions.

michel_m · Answer

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

CALI · Answer

Bonjour et merci.

Totaliser cellules coloriees

5 réponses

Discussions similaires

Newsletters