Activation filtre VBA

Résolu
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. 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. 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