Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

adapté une formule créée en public function

3 réponses
Avatar
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

3 réponses

Avatar
Dominique
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)
Avatar
Jacky
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" a écrit dans le message de news:
%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


Avatar
FS
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