adapter une formule créée en public function

Avec un public function la formule NBcellsPoliceCouleur est creé
voici le code , ca peut servir

Code:

---

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:

---

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:

---

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

Code:

---

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

---

EDIT: plutot ceci

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

Code:

---

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

---

A+

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

Code:

---

=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:

---

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

---

mais la formule n'est pas bonne

on ma aidé et ca donne ca

Code:

---

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

---

merci

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:

---

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:

---

=NBCellsPoliceCouleur(C:C;15;3)

---

Pour plusieur colonnes

Code:

---

=NBCellsPoliceCouleur(C:E;15;3)

---

A+