Avec un public function la formule NBcellsPoliceCouleur est creé
voici le code , ca peut servir
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Public Function NBCellsPoliceCouleur(ByVal target As Range, _
ByVal Couleur As Integer) As Integer
 
Dim Cellule As Range
NBCellsPoliceCouleur = 0
For Each Cellule In target
If Cellule.Font.ColorIndex = Couleur Then 'Teste la couleur de la police
NBCellsPoliceCouleur = NBCellsPoliceCouleur + 1
End If
Next
 
End Function
Avec l'enregistreur de macro, j ai placé cette macro , elle calcule en B3 le nombre de cellule avec le texte rouge de C12 à C23
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range("B3").FormulaR1C1 = "=NBcellsPoliceCouleur(R[12]C[1]:R[23]C[1],3)"

je voudrais la transformé pour qu'elle calcul en B3 de C15:C & Range("C65536").End(xlUp).Row
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub comptagecouleur()
Dim Derlig As Long
Derlig = Range("C65536").End(xlUp).Row
 
 
Range("B3").FormulaR1C1 = "=NBcellsPoliceCouleur( (Range(C15:C & Derlig) ),3)"
 
End Sub
mais elle inscrit cette formule en B3
=NBcellsPoliceCouleur( (Range(B:$O & Derlig) );3)
merci