Re-bonjour à tous,
Je vous remercie déjà pour le suivi que vous venez de faire à mon message précédent.
Sans vouloir abuser, pourriez-vous m'aider sur ce qui suit.
Je voudrais affiner un code que j’ai introduit pour pouvoir filtrer des dates et heures dans plusieurs feuilles.
Je ne trouve pas de solutions pour intégrer ce code en une seule commande.
J’ai du l’introduire dans chaque feuilles et je voudrais comprendre comment éviter cela.
Merci d’avance pour votre aide.
Code:
Sub Filtre()
With Worksheets("JANVIER")
Sup = Format(.Range("M3").Value, "hh:mm:ss")
Inf = Format(.Range("N3").Value, "hh:mm:ss")
Range("c4:c" & [a65000].End(xlUp).Row).AutoFilter 3, ">=" & Sup, xlAnd, "<=" & Inf
End With
End Sub
Sub Afficher_tout()
With Worksheets("JANVIER")
If .FilterMode Then .ShowAllData
End With
Range("M2:N3").Select
Selection.ClearContents
Range("M2").Select
End Sub
Sub Filtre_Date()
With Worksheets("JANVIER")
Sup = Range("M2").Value2
Inf = Range("N2").Value2
Range("a4:a" & [a65000].End(xlUp).Row).AutoFilter 1, ">=" & Sup, xlAnd, "<=" & Inf
End With
End Sub