Mettre ça dans la cellule où tu veux le résultat et adapter : =ColorCountIf(C5:C195;E1)
E1 ici est la cellule contenant la couleur que tu veux compter (attention une cellule non colorée apparait blanche mais elle n'est pas colorée il faut donc lui mettre un fond blanc)
C5:C195 est la plage de cellules dans laquelle tu comptes le nombre de cellules ayant la même couleur que E1
sinon tu peux adapter ça
Private Sub CommandButton4_Click()
Dim Compte As Integer
'les cellules surveillées
For Each c In Range("C1:C622")
'condition fixée
If c.Interior.ColorIndex = 40 Then
'pour faire la somme des cellules remplies
Compte = Compte + 1
End If
Next
'pour afficher notre somme en C1
Range("B2") = Compte & " " & Range("K2")
Range("A1").Select
End Sub
la liste des codes couleurs :
http://cjoint.com/?iyplGhOKMM
voir aussi sur le site de VERITI ou celui de Exceldownload
(_Usul d'Arrakis
Serial_Dreamer_)