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
