Nombre de cellules d'une couleur dans une formule

bonjour,

 voici une ptite macro qui te compte le nombre de cellules colorées en rouge (code=3 en vba) et affiche le résultat dans la cellule A1
 tu recopies cette macro dans un module et tu te crées un bouton pour la lancer dans ta feuille.

 Sub compter()
 Application.ScreenUpdating = False
 compteur = 0
 Range("A2:U26" ).Select
 For Each cel In Selection
 If cel.Interior.ColorIndex = 3 Then compteur = compteur + 1
 Next
 Application.ScreenUpdating = True
 Range("A1" ).Select
 Range("A1" ) = compteur
 End Sub

 on peut aussi automatiser à chaque fois que tu colories des cellules
 on peut aussi créer une fonction.... on peut presque toute faire en VBA
 

 voici un fichier à télécharger pour t'aider
 http://www.cijoint.fr/cjlink.p [...] qnzHjZ.xls

---------------
Merci de sauver les chats abandonnés en aidant cette association :
- Pension MillePattes

tu peux mettre une formule dans ta cellule pour compter au lieu d'utiliser la macro.

 tu choisis ta couleur, ici rouge k=3

 Function Ncouleur(Cible As Range; k As Integer) As Long
 Dim cel, i%
 Application.Volatile
 For Each cel In Cible
 If cel.Interior.ColorIndex = k Then i = i + 1
 Next
 Ncouleur = i
 End Function



 exemple:couleur rouge =3 à mettre dans la formule

 dans la cellule A1 tu mets la formule
 A1=Ncouleur(A2:U26;3)

 ------------------------------​---------

 sinon tu peux aussi choisir la couleur d'une cellule déjà colorée comme référence


 Function NBcouleur(Cible As Range; celRef As Range) As Long
 Dim cel, i%, k%
 Application.Volatile
 k = celRef.Interior.ColorIndex
 For Each cel In Cible
 If cel.Interior.ColorIndex = k Then i = i + 1
 Next
 NBcouleur = i
 End Function


 exemple cellule B4 colorée en vert
 A1 te donnera le nombre de cellules vertes
 A1=NBcouleur(A2:U26;B4)

 
 mettre [résolu] dans le titre du 1er Post avec l'éditeur si cela te convient.

---------------
Merci de sauver les chats abandonnés en aidant cette association :
- Pension MillePattes

willyplaisir


 Merci pour ton aide: la macro fonctionne bien. Par contre, vu que je ne suis pas hyper pointu sur Excel, je n'arrive pas à faire fonctionner les deux formules que tu m'as donné (Ncouleur et NBcouleur).

 Si je ne me trompe, vu la procédure, je dois bien inscrire les lignes "Function... End Function" dans une macro vba, puis taper la fonction "=Ncouleur(A2:U26;3)" ou "=NBcouleur(A2:U26;B4)" dans la cellule A1?

 J'ai essayé également de taper directement la fonction dans A1, mais ça ne marche pas, of course !

 Je pense que je me trompe quelque part, mais où ? Pourrais-tu être plus précis sur ces formules: quelle est la procédure exacte ?

 En attendant, je vais voir le lien que tu m'as indiqué.


 Merci d'avance !  

willyplaisir


 Ok, le lien correspond à la macro que tu m'as indiqué dans ton 1er post, mais cela ne résout pas mes formules incompatibles: celles-ci m'indiquent dans la cellule A1 "#NOM?"


 

re,

 tu copies le programme dans un module voir le fichier:
 http://www.cijoint.fr/cjlink.p [...] OoPVlH.xls

 et tu mets dans les cellules de ton choix la fonction
 dans A1 tu mets
 =Ncouleur(A2:U26;3)" ou

 =NBcouleur(A2:U26;B4)

 

---------------
Merci de sauver les chats abandonnés en aidant cette association :
- Pension MillePattes

willyplaisir

 Merci bien, je pense que j'ai dû faire une erreur de manip: ta feuille de démo est limpide !
 Je vais essayer dès demain (vu l'heure tardive) pour mon boulot.

 Je te tiens au courant.


 http://emoticon.gregland.net/e​moticon/Texte/texte_7.gif

willyplaisir


 Ok, la macro "compter" fonctionne super bien, la fonction Ncouleur également, mais j'avoue que j'ai un petit problème pour "enclencher" celle "NBcouleur": je me retouve encore avec ceci: "#NOM?" comme message d'erreur et j'obtiens parfois une erreur 400.

 Ca signifie quoi ? Je pense que j'exécute mal la procédure mais je suis un peu novice en matière de macro (ou de fonction macro).

 Si tu passes par là, mais ne te presse pas: je serai absent une dizaine de jours. Il faudra aussi que j'approfondisse l'aide d'Excel à ce propos.

 Encore  



 http://emoticon.gregland.net/e​moticon/Signatures_1/signature​s116.gif

 ce message d'erreur #NOM? signifie qu'Excel ne reconnait pas ta commande
 si NBcouleur(A2:U26;B4) est correctement mis dans ta cellule, alors tu as mal recopié les lignes de la macro

 Function NBcouleur(Cible As Range; celRef As Range) As Long
 Dim cel, i%, k%
 Application.Volatile
 k = celRef.Interior.ColorIndex
 For Each cel In Cible
 If cel.Interior.ColorIndex = k Then i = i + 1
 Next
 NBcouleur = i
 End Function

 ---------------------
 sinon tu as mis une autre commande à la place de NBcouleur comme totocouleur qu'Excel ne connait pas dans son module

 à toi de bien vérifier ce que tu écris...normal car tu te couches tard..

  te redonne le fichier
 http://www.cijoint.fr/cjlink.p [...] Nl7h8B.xls

  si OK mets [Résolu] dans le titre du 1er Post

---------------
Merci de sauver les chats abandonnés en aidant cette association :
- Pension MillePattes