XL 2019 Ajouter un second filtre DATE en VBA

Sellig

XLDnaute Junior
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
 

Pièces jointes

  • Test.xlsm
    174.8 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Selling,
Un essai en PJ en remplaçant Worksheet_Change avec :
Code:
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
 

Pièces jointes

  • Test.xlsm
    165.5 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
313 282
Messages
2 096 789
Membres
106 748
dernier inscrit
Abdel93