Recencer le nombre de couleur

[hasardeux]

Bonjour le forum,

Ci-joint vous trouverez un fichier-exemple de mon problème.

Ce fichier contient 3 feuilles:
- SP et MMM: où exitent les tableaux sources de calcul pour la 3°feuille
- Statut: o: il y a les indices des couleurs utilisées et où le recensement doit être effectué

Mon problème est de pouvoir, par VBA, calculer dans la feuille statut le nombre de chaque couleur utilisée dans les deux premières feuilles, avec les conditions suivantes:

- le calcul doit porté sur la plage commençant de E1 et se terminant par l'intersection de:
* la dernière cellule remplie de la colonne D
* et la dernière cellule remplie de la ligne 1
- la couleur dont le contenu de la cellule est vide ne doit pas rentrée dans le recencement
- le calcul est effectué dans la feuille 'Statut' pour chaque feuille 'SP' et 'MMM'


Merci bcp [file name=RecenserCouleur.zip size=36502]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RecenserCouleur.zip[/file]

 

[Bebere]

bonjour Hasardeux,le Forum
j'espère avoir bien compris
à bientôt [file name=Classeur1Ret.zip size=45233]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1Ret.zip[/file]

 

[hasardeux]

Merci bcp

ça fonctionne à merveille.

Mais, reste un seule condition qui n'est pas satisafite:

- Lorsque la valeur d'une cellule est vide, il ne faut pas compter la coloeur


Comment inclure cette condition?


Encore mille merci

 

[hasardeux]

Re,

C'est bon j'ai ajouté cette ligne et j'ai résolu le problème

If Cel.Value > 0 Then


Mais, est ce qu'il n'y a pas un moyen de rendre le code plus flexible, avoir une boucle pour ne pas répéter le même code pour chaque feuille et de permettre d'exécuter la même macro même si on ajoute une autre feuille

(Il faut exclure la feuille 'Statut' de la boucle bien sûr)


Je vous attend

Merci

 

[Bebere]

re
je te renvoie le classeur code modifié
je n'ai pas le temps aujourdhui mais demain je vais appliquer ta proposition
ajouter 'if not cel is nothing' pour exclure cellules vides et colorées
à+ :ermm: [file name=Classeur1Ret_20050817154234.zip size=45310]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1Ret_20050817154234.zip[/file]

 

[hasardeux]

ok, merci


et je t'attend pour demain

 

[Bebere]

bonjour Hasardeux,le Forum
la version finale
à bientôt [file name=Classeur1Ret_20050818122353.zip size=46567]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1Ret_20050818122353.zip[/file]

 

[hasardeux]

merci bcp berbere

C'est impeccable.


MAIS lorsq j'ajoute d'autres feuilles, le calcul n'est pas pour plusieurs nouvelles feuilles ou bien le calcul est faussé.

J'ai voulu attaché un fichier avec plusieurs feuilles mais la taille zippé est supérieur 50 K0


Comment pourrais je procéder? je peux avoir ton mail?

Encore mille merci de poursuivre avec moi ce problème

 

[Bebere]

bonsoir Hasardeux
tu peux l'envoyer à l'adresse suivante
rgeorges47@gmail.com
à bientôt