Optimisation de critères d'un filtre automatique

[apt]

Bonsoir à tous,

J'aimerais appliquer un filtre automatique sur une base, mais je bute encore sur comment organiser les critères de ce filtre pour avoir les déférents résultats voulus.

Merci d'avance.

 

[apt]

Re : Optimisation de critères d'un filtre automatique

Quelle est la feuille active quand tu lances ta macro?

C'est Feuil2

 

[Staple1600]

Re : Optimisation de critères d'un filtre automatique

Re

apt:
I'm not crazy 😉
Vois par toi-même

 

[apt]

Re : Optimisation de critères d'un filtre automatique

Re,

Non, je te crois staple1600.

Mais j'aimerais savoir pourquoi chez moi, ça ne marche pas ?

 

[Staple1600]

Re : Optimisation de critères d'un filtre automatique

Re

Fais comme moi le test avec ton fichier joint dans ce message.

Est-ce que sur ce fichier, tu obtiens bien le même résultat que moi?

 

[apt]

Re : Optimisation de critères d'un filtre automatique

tu obtiens bien le même résultat que moi?

Rien du tout !

 

[Staple1600]

Re : Optimisation de critères d'un filtre automatique

Re


??????????
Moi j'ai testé sur un PC qui est sous Excel 2003
et toi tu sembles être sous Excel 2007, non ?

Il faudrait que d'autres membres du forum testent ta PJ et la macro qui s'y trouve pour voir si tu es le seul chez qui cela ne fonctionne pas.

 

[apt]

Re : Optimisation de critères d'un filtre automatique

Re,

Ok

PS: J'ai testé sur 2 PC avec Excel 2007

 

[apt]

Re : Optimisation de critères d'un filtre automatique

Salut,

L'un d'eux l'a essayé sur 2010, et ça fonctionne !

EDIT : Besoin de testeurs sur Excel 2007

 

[apt]

Re : Optimisation de critères d'un filtre automatique

Bonsoir,

Un testeur à répondu :

Après de multiples essais, je confirme que chez moi, cela ne fonctionne pas en 2007 mais pas davantage en 2010. C'est très curieux.

J'ai testé avec une de mes routines qui fonctionne parfaitement avec d'autres bases de données mais pas celle-là.

Sans code VBA, le filtre fonctionne.

J'ai effectué un enregistrement de macro le filtre fonctionne. Je lance la macro cela ne fonctionne pas.

J'ai copié les 3 zones data base, Critère et zone de copie dans une autre classeur, même problème.

 

[apt]

Re : Optimisation de critères d'un filtre automatique

Re,

Le problème du résultat du filtre avancé dans Excel 2007 a été résolu 🙂

Il s'est avéré que le problème résidait dans le remplacement de la virgule par le point dans la cellule G2 du critère Dn (Durée en numérique) :

'-- Avec durée d'arrêt
        Set Crit = .Range("G1:G2")
        Crit(2).Value = Replace(Crit(2).Value, ",", ".")

Macro EssaiFiltreArret :

Sub EssaiFiltre()
Dim Crit As Range
    With Sheets("feuil2")
        .[E2] = ">= " & .[E9]
        .[F2] = "<= " & .[F9]
        .[G2] = ">= " & .[G16]
        MsgBox "[E2] : " & [E2] & vbCrLf & _
               "[F2] : " & [F2] & vbCrLf & _
               "[G2] : " & [G2]
        
        '-- Avec date d'arrêt
        'Set Crit = .Range("E1:F2")
        
        '-- Avec durée d'arrêt
        Set Crit = .Range("G1:G2")
        Crit(2).Value = Replace(Crit(2).Value, ",", ".")
        
        '-- Avec date et durée d'arrêt
        'Set Crit = .Range("E1:G2")
        
        .Range("A1:D17").AdvancedFilter _
                Action:=xlFilterCopy, _
                CriteriaRange:=[Crit], _
                CopyToRange:=.Range("J1:L1"), _
                Unique:=False
    End With
End Sub

Ja vais regarder pour le reste des critèeres.