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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Dominique
Le #19902141
Le 08/08/2009 15:55, Dominique a écrit :
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)
Jacky
Le #19902511
Bonsoir,

'-------------
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$
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


FS
Le #19918741
Bonjour,

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


Publicité
Poster une réponse
Anonyme