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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
Il m inscrit cette formule en B3 =NBcellsPoliceCouleur( (Range(B:$O & Derlig) );3)
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
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
"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
"Dominique" <dobidon@orange.fr> a écrit dans le message de news:
%23xDsu$CGKHA.2832@TK2MSFTNGP03.phx.gbl...
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
"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
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
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
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