Discussion :

[apt]

Bonjour à tous,

J'aimerais optimiser un code VBA pour filtrer une BD.

Seulement, l'étape ou je suis, le fichier que j'ai sous la main ne me donne pas de résultats, contrairement chez un autre qui a essayer le code et qui obtient bien un résultat.

J'aimerais que d'autres essayent ce fichier et me disent pourquoi chez moi ça ne marche pas !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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")
 
        '-- 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

Merci d'avance.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub EssaiFiltre()
 
With Sheets("Feuil2")
    .[E2] = ">= " & .[E9]
    .[F2] = "<= " & .[F9]
    .[G2] = ">= " & .[G16]
    .Range("A1:C17").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("E1:G2"), CopyToRange:=.Range("J1:L1"), Unique:=False
End With
End Sub

[apt]

Bonsoir mercatog,

Merci pour le code, mais toujours, je n'ai rien obtenu.

Le problème est que même mon premier code marche chez quelqu'un qui l'a essayé sur Excel 2003, mais chez moi, ça ne donne rien

Je ne sais pas ou est le problème ?

[mercatog]

Je ne saurais te guider puisque ça fonctionne chez moi sur ton fichier (je suis en Excel 2010).

[apt]

Salut,

Quelqu'un peut-il me répondre si l'essai est concluant sur Excel 2007 ?

Parce que moi, je l'ai essayé sur deux PC avec Excel 2007 et je n'ai rien obtenu.

[Philippe Tulliez]

Bonjour,
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.
Après plus d'une heure de test, je dois momentanément abandonner.
[EDIT]
Je viens de tester en 2003, cela fonctionne.
Je suppose que si cela fonctionne chez Mercatog, cela doit nécessairement provenir d'une release d'office que nous n'avons pas effectuée.

Bonjour,
Pour Office 2007, après avoir installé le Service Pack 3, toujours le même problème.