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.
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
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