Discussion :

[dodo28]

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B3").FormulaR1C1 = "=NBcellsPoliceCouleur(Range(R[12]C[1]:R[" & Derlig-3 & "]C[1]),3)"

EDIT: plutot ceci

[LeForestier]

Bonjour,
Bien que je ne vois pas bien l"utilité de faire une sub pour mettre une formule dans une cellule..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B3").FormulaLocal = "=NBcellsPoliceCouleur(C15:C "  & Derlig & ;"3)"

A+

[dodo28]

bonjour Le Forestier
ben! bonne reflexion. Mais alors comment je peux adapter la formule ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NBcellsPoliceCouleur(C15:C "  & Derlig & ;"3)

Je ne vois pas comment on fait une formule qui va reconnaitre ta dernière ligne qui peut varier a tout moment (hors tableau automatique).

si tu connais l astuce, je serais heureux que tu me la donne.

merci d avance.

re
j ai pensé a ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NBcellsPoliceCouleur(C15:C"(=NBVAL(c15:c6600)";3))

mais la formule n'est pas bonne

[dodo28]

on ma aidé et ca donne ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NBcellsPoliceCouleur(INDIRECT("C15:C"&NBVAL(C15:C6600));3)

merci

[LeForestier]

Ca n'est pas une bonne solution, si tu a des cellules vides ça n'ira pas jusqu'au bout de ta colonne.
J'ai un peu modifié ta fonction pour qu'elle fasse ce que tu veux et je pense que j'en ai rajouter un peu trop, tu peu compter sur plusieur colonnes, sais pas si c'est nécessaire enfin bon, à toi de voir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function NBCellsPoliceCouleur(ByVal target As Range, ByVal Ligne As Long, _
ByVal Couleur As Integer) As Integer
Dim Cellule As Range, Plage As Range, Compteur As Integer
Dim ColDeb As Long, ColFin As Long, Col As Long
Dim TB
    Application.Volatile
    TB = Split(target.Address, ":")
    ColDeb = Range(TB(0) & "1").Column
    ColFin = Range(TB(UBound(TB)) & "1").Column
    For Col = ColDeb To ColFin
        Set Plage = Range(Cells(Ligne, Col), Cells(Cells(65536, Col).End(xlUp).Row, Col))
        For Each Cellule In Plage
            If Cellule.Font.ColorIndex = Couleur Then 'Teste la couleur de la police
                Compteur = Compteur + 1
            End If
        Next Cellule
    Next Col
    NBCellsPoliceCouleur = Compteur
End Function

La formule à mettre dans la cellule si tu veux tester la colonne C à partir de la ligne 15 par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NBCellsPoliceCouleur(C:C;15;3)

Pour plusieur colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NBCellsPoliceCouleur(C:E;15;3)

A+