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.