NB.SI(couleur)

re

une macro VBA s'impose, voici une fonction proposée par Myta sur le forum ce matin
- à coller dans un module (Alt+F11 pour acceder a l'editeur puis coller ce code)
- à utiliser comme une nouvelle fonction

Function NbreCellulesCouleur(Plage As Range, Couleur As Byte) As Long    
'Compter le nombre de cellules d'une couleur donnée dans une plage donnée    
'Plage: plage de cellules à inspecter    
'Couleur: valeur de la couleur cherchée    

Application.Volatile    

Dim Cellule As Range    

For Each Cellule In Plage    
    If Cellule.Interior.ColorIndex = Couleur And Not IsEmpty(Cellule) Then    
        NbreCellulesCouleur = NbreCellulesCouleur + 1    
    End If    
Next Cellule    

End Function

Mode d'utilisation de la formule
B9=NbreCellulesCouleur(B4:B8;3)

RQ. (excel 2003) pour les codes couleurs tu mets un bouton sur une feuille et tu colles le code

Private Sub CommandButton2_Click()   
dim i as long
  For i = 1 To 56   
    Range("A" & i).Value = i   
    Range("A" & i).Interior.ColorIndex = i   
  Next i   
End Sub   

bonne suite