adapté une formule créée en public function
Le
Dominique

Bonjour le forum
Avec un public function la formule NBcellsPoliceCouleur est creé
Avec l'enregistreur de macro j ai placé cette macro en B3, elle calcule
nombre de cellule avec le texte rouge de C12 à C23
Range("B3").FormulaR1C1 = "=NBcellsPoliceCouleur(R[12]C[1]:R[23]C[1],3)"
je voudrais la transformé pour qu'elle calcul de C15:C &
Range("C65536").End(xlUp).Row
j ai essayé ca et ca ne marche pas
Dim Derlig As Long
Derlig = Range("C65536").End(xlUp).Row
Range("B3").FormulaR1C1 = "=NBcellsPoliceCouleur (Range(C15:C & Derlig)
),3)"
merci pour votre aide
Avec un public function la formule NBcellsPoliceCouleur est creé
Avec l'enregistreur de macro j ai placé cette macro en B3, elle calcule
nombre de cellule avec le texte rouge de C12 à C23
Range("B3").FormulaR1C1 = "=NBcellsPoliceCouleur(R[12]C[1]:R[23]C[1],3)"
je voudrais la transformé pour qu'elle calcul de C15:C &
Range("C65536").End(xlUp).Row
j ai essayé ca et ca ne marche pas
Dim Derlig As Long
Derlig = Range("C65536").End(xlUp).Row
Range("B3").FormulaR1C1 = "=NBcellsPoliceCouleur (Range(C15:C & Derlig)
),3)"
merci pour votre aide
En modifiant le code comme ceci
Sub comptagecouleur()
Dim Derlig As Long
Derlig = Range("C65536").End(xlUp).Row
Range("B3").FormulaR1C1 = "=NBcellsPoliceCouleur( (Range(C15:C & Derlig)
),3)"
End Sub
Il m inscrit cette formule en B3
=NBcellsPoliceCouleur( (Range(B:$O & Derlig) );3)
'-------------
Range("B3").Formula = "=NBcellsPoliceCouleur(Range(C15:C" &
Range("C65536").End(xlUp).Row & "),3)"
'------------
OU
'------------
Derlig = Range("C65536").End(xlUp).Row
Range("B4").Formula = "=NBcellsPoliceCouleur(Range(C15:C" & derlig & "),3)"
'------------
--
Salutations
JJ
"Dominique" %23xDsu$
Si tu publiais le code de ta fonction perso NBcellsPoliceCouleur, ça
serait plus facile de t'aider (AMA).
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Dominique a écrit :