Boucle et filtre Fermé

Question

Bonjour, 

Grace à un enregistrement de macro j'ai tout d'abord trouver mon code VBA pour le fait de filtrer : 

ActiveSheet.Range("$A$1:$T$2561").AutoFilter Field:=2, Criteria1:= _        "Boucheuse / Museleuse"    Range("C1").Select    ActiveSheet.Range("$A$1:$T$2561").AutoFilter Field:=3, Criteria1:="Curatif"

Cependant j'aimerai que mon critère 1 du filtre 2 ne reste pas sur "Boucheuse / Museleuse"

Mais qu'il passe d'une machine à la suivante, la liste de mes machines étant dans l'onglet 'MTBF' de la case A2 à la case A44.

Quelqu'un à une idée ?

Merci de votre temps,

DGVDR
Configuration: Windows Vista / Internet Explorer 7.0

Zoul67 · Answer

Bonjour,

Qu'est-ce qui entraîne le changement de filtre (càd le passage d'une machine à la suivante) ? un laps de temps ? l'appui sur un bouton ? ... ?

A+

DGVDR · Answer

Bonjour Zoul67, et merci de ta réponse,

Le but de ma macro est d'analyser un tableau se trouvant dans l'onglet "Enregistrement interventions". Dans ce tableau on retrouve les différentes machines ainsi que les dates d'interventions associées.

Je voudrais que ma macro analyse machine par machine ( d'ou le changement dans le filtre 2) Je voudrais que le changement de critère ce fasse automatiquement, une fois l'analyse épuisée pour la première machine. ( peut être du coup deux boucles l'une dans l'autre ?)

Une boucle pour le changement de machine vis à vis de la liste existant dans l'onglet MTBF, et une boucle qui, par machine, analyserait le tableau.

Merci de ton aide,

Qu'en penses tu ?

DGVDR

Zoul67 · Answer

Re,

ça peut être délicat à traiter, des données filtrées.
Souvent, les Tableaux Croisés Dynamiques sont un bon outil pour visualiser rapidement des données par critère.
Pour le code, ça ressemblerait à 
For l = 2 to 44critere = Sheets("MTBF").Cells(l,1).ValueActiveSheet.Range("$A$1:$T$2561").AutoFilter Field:=2, Criteria1:= critere'ton code de traitement des données filtréesNext l

A+

DGVDR · Answer

Comment ça délicat ?

Je regarde ça au plus vite, merci beaucoup

DGVDR · Answer

Petit problème :

J'arrive bien à filtrer mon tableau, il n'apparait que les lignes avec mon critère.

Cependant par la suite j'aimerai me caller sur la dernière ligne, sa case "E" (valeur que l'on appelera X)
Par la suite je me calle sur la ligne d'au dessus, le tableau étant toujours filtré, puis je prend me calle également sur la case "E" (valeur que l'on appelera  Y)

J'aimerai effectuée X - Y

J'ai un début de reflexion :

For L = 2 To 44critere = Sheets("MTBF").Cells(L, 1).ValueActiveSheet.Range("$A$1:$T$2561").AutoFilter Field:=2, Criteria1:=critere  'ton code de traitement des données filtréesNext l numligne = Sheets("Enregistrements interventions").Range("A65536").End(xlUp).RowDerDate = Worksheets("Enregistrements interventions").Range("E" & numligne)

Cependant je n'ai pas l'astuce pour mettre en mémoire la valeur Y, un tableau filtré pouvant passer de la ligne 600 à la 700,  je ne sais pas comment me caller dessus.

Quelqu'un à t il déjà rencontré ce cas ?

Merci,

DGVDR

DGVDR · Answer

Zoul67,

Peux tu m'expliquer un peu plus le "SOMME.SI.ENS", dans son fonctionnement ?

Mais une fois que tu appliques le code, les pannes 5-6-7-8 en sont 4 ou n'en sont qu'une ? 
-> Je ne comprends pas bien la question, les pannes 5-6-7-8 restent bien distinct et compte comme 4 dans le calcul de MTBF

Et pour le calcul du MTBF, tu utilises la date de mise en service (pas d'autre choix pour les machines n'ayant connu qu'une panne) ? 
-> Oui, quand j'ai la date je l'utilise en effet (ça n'est pas encore en place ceci dit)

Merci de ton temps,

DGVDR

Boucle et filtre

6 réponses

Discussions similaires