Bonjour à tous,
après plusieurs recherche sur les forums, je trouve pas la solution à mon problème.
Je doit faire un tri pour chaque "machine" et "valve 0" pour le jour précédent (sachant que le jour commence à 6h00).
Mon filtre élaboré fonctionne en manuel, mais quand je le lance en VBA (module 4), ca ne fonctionne pas (il fonctionne quand je ne prends pas la date).
Je suis à cours d'imagination, J'espère que quelqu'un pourra m'aider.
Mon fichier est trop gros pour être joint, mais voici à quoi cela ressemble:
Données (de A à Q):
DT Sample Machine Type Valve
26/08/2014 1:00 47 JB1FMM1 1 0
26/08/2014 1:00 47 JB1FMM1 1 1
26/08/2014 1:00 47 JB1FMM1 1 2
Mes conditions des tris (en T1:W2):
DT DT Valve Machine
>=27/08/2014 6:00 <28/08/2014 6:00 0 JB1FMM1
Ma macro:
DerLigne = Cells(Cells.Rows.Count, "Q").End(xlUp).Row
Range("A1:Q" & DerLigne).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("T1:W2"), CopyToRange:=Range("AA2:AQ2"), Unique:=False
Merci,
INVIMA
après plusieurs recherche sur les forums, je trouve pas la solution à mon problème.
Je doit faire un tri pour chaque "machine" et "valve 0" pour le jour précédent (sachant que le jour commence à 6h00).
Mon filtre élaboré fonctionne en manuel, mais quand je le lance en VBA (module 4), ca ne fonctionne pas (il fonctionne quand je ne prends pas la date).
Je suis à cours d'imagination, J'espère que quelqu'un pourra m'aider.
Mon fichier est trop gros pour être joint, mais voici à quoi cela ressemble:
Données (de A à Q):
DT Sample Machine Type Valve
26/08/2014 1:00 47 JB1FMM1 1 0
26/08/2014 1:00 47 JB1FMM1 1 1
26/08/2014 1:00 47 JB1FMM1 1 2
Mes conditions des tris (en T1:W2):
DT DT Valve Machine
>=27/08/2014 6:00 <28/08/2014 6:00 0 JB1FMM1
Ma macro:
DerLigne = Cells(Cells.Rows.Count, "Q").End(xlUp).Row
Range("A1:Q" & DerLigne).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("T1:W2"), CopyToRange:=Range("AA2:AQ2"), Unique:=False
Merci,
INVIMA