Optimisation de critères d'un filtre automatique

A

apt

XLDnaute Impliqué

• 22 Juillet 2012

• #16

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

Staple1600 à dit:

Quelle est la feuille active quand tu lances ta macro?

Cliquez pour agrandir...

C'est Feuil2

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2012

• #17

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

Re

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

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 22 Juillet 2012

• #18

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 ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2012

• #19

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?

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 22 Juillet 2012

• #20

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

Staple1600 à dit:

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

Cliquez pour agrandir...

Rien du tout !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2012

• #21

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.

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 22 Juillet 2012

• #22

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

Re,

Ok

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

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 22 Juillet 2012

• #23

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

 

Dernière édition: 23 Juillet 2012

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 23 Juillet 2012

• #24

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.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 24 Juillet 2012

• #25

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) :

Code:

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

Macro EssaiFiltreArret :

Code:

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.

 

Vote positif 0 Vote négatif