[RESOLU] Classement de critères par macro

maninwhite · 11 Octobre 2010

Bonjour à toutes et à tous.

J'ai actuellement un tableau dans lequelle j'ai plusieurs feuilles correspondantes à différents services d'une usine.

Dans chacune des feuilles, j'ai une colonne avec certains comportements et d'autres colonnes avec des chiffres correspondants à chacun des critères.

J'ai ajouté une feuille dans laquelle j'aimerai pouvoir faire un TOP 5 des mauvais comportements, c'est à dire que ma macro doit

Rechercher dans la colonne "comportement NOK" de chaque feuille les 5 chiffres les plus élevés et reporter le mauvais comportement associé dans cette feuille de manière croissante.

Pour que ce soit plus objectif, j'ai mis en PJ, le fichier et le résultat auquel j'aimerai parvenir par le biais d'une macro.

Merci d'avance

JNP · 12 Octobre 2010

Re : Classement de critères par macro

Re ,

Efgé à dit:
J'ai testé en mettant 1000 en C10 de la feuille BOS_Administration. Il n'y a pas d'actualisation de la feuille Stats.

Merci EfGé. Grâce à toi, j'ai pu voir que l'onglet Administration était caché chez moi . Donc j'ai modifié la fontion à 5 entrées. D'autre part, le Dico éliminait les doublons (numériques), donc je suis finalement passé par du tableau simple. Le fait qu'il n'y avait pas d'actualisation, mais pas non plus de débogage prouve que le code tourne sous 2003.
En PJ, la version corrigée .
Par contre, je pense que je m'arrêterai là (sauf corrections nécessaires dans mes fonctions), je ne sens pas vraiment les orientations ultérieures .
Bon courage

maninwhite · 12 Octobre 2010

Re : Classement de critères par macro

Après essai, ça marche niquel.

La seule chose que j'ai pu constater, c'est que même si les cases avec les chiffres sont vides, le tableau de stats va quand même m'afficher des comportements

La dernière chose comme je l'ai dit, j'aimerai encore insérer une combobox et une listbox

Combobox avec le choix des mois
Listbox avec les résultats des comportements nok en fonction des mois

JNP · 12 Octobre 2010

Re : Classement de critères par macro

maninwhite à dit:
La seule chose que j'ai pu constater, c'est que même si les cases avec les chiffres sont vides, le tableau de stats va quand même m'afficher des comportements

Peux-tu être plus précis ? Si les cases sont vides, les cases dans stats sont vide. Dès qu'il y a un chiffre dans une des 5 feuilles, le comportement apparait dans les stats. Si il y a autre chose que du vide (un "-" par exemple), ça monte aussi, mais ça, ce n'est pas prévu dans le cahier des charges .
Donc, je ne vois pas ce que tu veux dire .
Pour ton USF avec combo et liste, tu trouveras plein d'exemple sur le forum, il te suffit de charger le résultat de mes formules .
Bon courage .

JNP · 12 Octobre 2010

Re : Classement de critères par macro

Re ,
Effectivement, ma macro avait des comportements erratiques ...
Encore merci à EfGé qui a testé le dernier fichier et qui m'a permis de comprendre un peu mieux le problème .
J'ai remis à plat les macros, et j'espère que cette fois-ci, le résultat sera impeccable ...
Bonne soirée

maninwhite · 13 Octobre 2010

Re : Classement de critères par macro

Impeccable, à présent c'est PARFAIT, même sans données dans les reports de comportements, les cellules de stats sont vides, c'est de cela que je voulais parler dans mon précédent post.

Sans vouloir abuser, si tu as juste encore le temps de jeter un coup d'oeil sur mon autre post perdu au fin fond du forum.

Lien supprimé

Encore merci pour ce gros travail

maninwhite · 14 Octobre 2010

Re : [RESOLU] Classement de critères par macro

Je reviens sur ce sujet car cette fois ci au lieu d'avoir le top 5 mauvais comportements, j'aimerai le top 5 bon comportements donc ceux qui ont le plus de comportements ok.

Je pense qu'il y a juste quelques modifs à faire au fichier de JNP.

Merci

JNP · 14 Octobre 2010

Re : [RESOLU] Classement de critères par macro

Re ,
Exigeant ...

Code:

=Top5bis(BOS_Administration!$A:$A;DECALER(BOS_Administration!$C:$C;;(COLONNE()-1)*3)[B][COLOR=#ff0000]-1[/COLOR][/B];BOS_Chantier!$A:$A;DECALER(BOS_Chantier!$C:$C;;(COLONNE()-1)*3[COLOR=red][B]-1[/B][/COLOR]);BOS_Conditionnement!$A:$A;DECALER(BOS_Conditionnement!$C:$C;;(COLONNE()-1)*3[B][COLOR=#ff0000]-1[/COLOR][/B]);BOS_Fabrication!$A:$A;DECALER(BOS_Fabrication!$C:$C;;(COLONNE()-1)*3[B][COLOR=#ff0000]-1[/COLOR][/B]);BOS_Magasin!$A:$A;DECALER(BOS_Magasin!$C:$C;;(COLONNE()-1)*3[B][COLOR=#ff0000]-1[/COLOR][/B]);LIGNE()-1)

devrait fonctionner ...
Bon courage

maninwhite · 15 Octobre 2010

Re : [RESOLU] Classement de critères par macro

Merci pour le code

J'ai donc créer un nouvel userform avec le même code que celui du top5 mauvais comportements en prenant soin de changer les noms des listbox, comboboxs...
Je pense qu'à ce niveau là aucune erreur

Dans la feuille stats, j'ai ajouté les mêmes colonnes que pour les mauvais comportements sauf que c'est pour les bons mais les données ne s'affichents pas

Je pense qu'il faut adapter le module

Ci joint, le fichier
Ce lien n'existe plus
Merci

JNP · 16 Octobre 2010

Re : [RESOLU] Classement de critères par macro

Re ,
Une petite erreur s'était glissée :

Code:

=Top5bis(BOS_Administration!$A:$A;DECALER(BOS_Administration!$C:$C;;(COLONNE()-1)*3[COLOR=red][B]-1)[/B][/COLOR];BOS_Chantier!$A:$A;DECALER(BOS_Chantier!$C:$C;;(COLONNE()-1)*3-1);BOS_Conditionnement!$A:$A;DECALER(BOS_Conditionnement!$C:$C;;(COLONNE()-1)*3-1);BOS_Fabrication!$A:$A;DECALER(BOS_Fabrication!$C:$C;;(COLONNE()-1)*3-1);BOS_Magasin!$A:$A;DECALER(BOS_Magasin!$C:$C;;(COLONNE()-1)*3-1);LIGNE()[COLOR=red][B]-8[/B][/COLOR])

le premier -1 était du mauvais côté de la paranthèse .
D'autre part, si tu commence à la ligne 9, il faut mettre -8 à la fin de la formule (9-8=1 ), sinon, tu va avoir le Top5 de la 8ème à la 13ème place ...
Bon WE
PS : Merci d'utiliser cijoint, par exemple, plutôt que MegaUpload, j'aime pas attendre, et encore moins me prendre des fenêtres publicitaires malgré les antipopup

maninwhite · 17 Octobre 2010

Re : [RESOLU] Classement de critères par macro

Merci JNP
Malheureusement lorsque je colle la formule dans les cellules, il me dit que j'ai une erreur dans la formule, ça ne marche pas snif...

JNP · 17 Octobre 2010

Re : Classement de critères par macro

Re ,
Chez moi, ça marche, voir fichier joint...
J'ai juste ajouté un Calculate à l'activation de la feuille pour que les données soient à jour, mais ça n'a rien à voir avec un message d'erreur...
Bon courage

maninwhite · 17 Octobre 2010

Re : Classement de critères par macro

ImpecJNP, cela fonctionne.
Dernier point, j'ai crée 2 combobox différentes suivant le top 5 bon ou mauvais malheureusement j'ai une erreur à l'éexecution avec la ligne

Code:

ListBox_top_5_mauvais_comportements.AddItem .Cells(I, TestCol)

Quel code pour chaque top 5 stp?

Merci

JNP · 17 Octobre 2010

Re : Classement de critères par macro

Re ,
TestCol est aberrant dans ton code...
Il faut que tu fasses une correspondance pour la colonne avec ton mois, et que tu prennes de 2 à 6 pour les mauvais, et de 9 à 13 pour les bons .
Bon courage

maninwhite · 18 Octobre 2010

Re : Classement de critères par macro

Au final, j'ai préféré faire une feuille pour les bons comportements et une pour les mauvais, au moins c'est clairement séparé.

Merci

maninwhite · 19 Octobre 2010

Re : [RESOLU] Classement de critères par macro

Spécial JNP

J'ai fait un petite changement dans mon tableau.

Au final, j'ai commencé au mois de Juin 2010 pour finir en Mai 2011 alors qu'avant j'avais commencé au mois de Novembre 2010.

Depuis, la formule ne marche plus.

Dois je changer quelque chose dans la formule ou dans le module?

Merci d'avance

[RESOLU] Classement de critères par macro

maninwhite

XLDnaute Occasionnel

Pièces jointes

JNP

XLDnaute Barbatruc

Pièces jointes

maninwhite

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

Pièces jointes

maninwhite

XLDnaute Occasionnel

maninwhite

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

maninwhite

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

maninwhite

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

Pièces jointes

maninwhite

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

maninwhite

XLDnaute Occasionnel

maninwhite

XLDnaute Occasionnel

Discussions similaires