Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Nombre de cellules d'une couleur dans une formule

 

JMPCOMPUTER, 1 utilisateur anonyme et 121 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Nombre de cellules d'une couleur dans une formule

Prévenir les modérateurs en cas d'abus 
roubiot
J'ai faim de savoir !
roubiot
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 02/04/2010 à 22:09:01  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
:hello:

 Bonjour,

 Je cherche à inscrire dans une cellule vide le nombre correspondant à la totalité des cellules d'une même couleur dans un tableau.
 Cela est-il possible "simplement" avec une formule (ou fonction) ou bien faut-il obligatoirement passer par une macro ?

 Mon tableau va de la cellule A2 à U26, donc: ($A$2:$U$26)et les cellules colorées ne sont pas forcément adjacentes.

 Merci d'avance pour vos réponses.

 :salut:

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 03/04/2010 à 10:47:04  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
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
 :salut:

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


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 03/04/2010 à 12:24:16  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
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)

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


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
J'ai faim de savoir !
roubiot
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 05/04/2010 à 12:26:58  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
:hello: 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 !  :salut:

J'ai faim de savoir !
roubiot
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 05/04/2010 à 12:37:08  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
:hello: 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?"


 :salut:

(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 05/04/2010 à 15:50:59  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
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)

 :salut:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
J'ai faim de savoir !
roubiot
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 05/04/2010 à 22:15:26  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
:hello: 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

J'ai faim de savoir !
roubiot
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 07/04/2010 à 22:24:39  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
:hello: 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  [:muskade:8]



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

(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 08/04/2010 à 08:23:32  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
:hello:

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

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

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


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
 Page :
1

Aller à :
 

Sujets relatifs
convertir nombre (années) en années, mois, jours open office copier coller dans des cellules non adjacentes
excel : formule pour calculer mes heures de travail Limiter le nombre d'occurrence d'une variable dans une table
code HTML pour le nombre de connectés pas de couleur pour les lien
Augmenter le nombre de dl simultané sous firefox Renommer un grand nombre de répertoire
Plus de sujets relatifs à : Nombre de cellules d'une couleur dans une formule

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
integrer cle CD de office 2007 1
word 2007 a cesser de fonctionner 1
Cobian backup 0
bloquage de Open Office 2
outlook 2003 0