XL 2019 Ajouter un second filtre DATE en VBA

[Sellig]

Bonjour,

J’ai à nouveau besoin de votre aide.

Je reviens donc vers vous avec mon fichier Test sur lequel j’aimerais si possible une petite modification que je suis bien incapable de réaliser.

Je m’explique avec un exemple :

Lorsque je sélectionne dans la liste déroulante par exemple ‘’ Léon Dit’’ (Tout va bien) mais j’aimerai un second filtre en VBA au niveau des dates. Soit une sélection entre 2 dates. Exemple du 10/03 au 07/09.

J’espère avoir été assez clair dans mon explication, sinon n’hésitez pas à me poser vos questions.

Merci par avance

Bien cordialement

 

[sylvanu]

Bonjour Selling,
Un essai en PJ en remplaçant Worksheet_Change avec :

Private Sub Worksheet_Change(ByVal Target As Range)
onglet = ActiveSheet.Name 'Ligne ajoutée pour éviter qu'en validant avec la touche entrée on descend d'une cellule
cellule = Target.Address
     If Target.Address = "$H$6" Or Target.Address = "$I$5" Or Target.Address = "$J$5" Then
        Application.ScreenUpdating = False
        If Range("H6") = "All" Then
            Range("H11").AutoFilter
        Else
            Range("A11:Q3000").AutoFilter
            Range("A11:Q3000").AutoFilter Field:=8, Criteria1:=Range("H6"), VisibleDropDown:=False
            If [I5] <> "" And [J5] <> "" Then
                Date1 = Month([I5]) & "/" & Day([I5]) & "/" & Year([I5])
                Date2 = Month([J5]) & "/" & Day([J5]) & "/" & Year([J5])
                Range("A11:Q3000").AutoFilter Field:=1, Criteria1:=">=" & Date1, _
                Operator:=xlAnd, Criteria2:="<=" & Date2, VisibleDropDown:=False
            End If
        End If
     End If
End Sub