Activation filtre VBA

Résolu
Villette54 Messages postés 300 Date d'inscription   Statut Membre Dernière intervention   -  
Villette54 Messages postés 300 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'aurais aimé savoir s'il était possible d'activé les filtres Excel via VBA.

Je m'explique :

Sur une colonne ou il n'y aurait que des dates, je peux utiliser les filtres pour n'afficher que les date du mois de mars 2014 par exemple.
Est-il possible de traduire cette demande via VBA ? Plus précisément, je souhaite utiliser les filtres pour n'afficher que les lignes pour lesquels la date dans la colonne AR est antérieure ou égale à la date du jour...

Merci d'avance pour votre aide.

1 réponse

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    si j'ai compris votre besoin,

    adaptez nom de feuille et colonnes

    Sub test()
    Dim cel As Range, derlig As Integer

    With Worksheets("feuil1")
    derlig = .Range("B" & Rows.Count).End(xlUp).Row
    Set plage = .Range("B2:B" & derlig)
    For Each cel In plage
    If cel > Date Then
    .Rows(cel.Row).Hidden = True
    Else
    .Rows(cel.Row).Hidden = False
    End If
    Next cel
    End With
    End Sub
    0
    1. Villette54 Messages postés 300 Date d'inscription   Statut Membre Dernière intervention   28
       
      Bonjour,

      Je en m'attendais pas à ça... Pour être honnête je penchais plus vers une activation des filtres....
      Mais ce que tu proposes avec ta macro fonctionne parfaitement, c'est exactement ce que je voulais. J'en suis donc très content.

      Merci beaucoup pour ton aide, bonne journée.
      0