Macro pour filtre automatique personnalisé

[colorado95]

Re bonjour,

je précise ma demande initiale en ajoutant un fichier.
En fait j'aimerai créer une macro qui permette de filtrer la feuille import en fonction de la valeur de la cellule B8 qui se trouve dans la feuille procédure.
Voilà j'espère avoir été assez précis dans ma demande.
Par avance merci à tous et à toutes.

 

[MJ13]

Re : Macro pour filtre automatique personnalisé

Bonjour Colorado95

Tu peux tester cette macro:

Sub Filtre_date()
    Sheets("Import").Select
    derl = [A65536].End(xlUp).Row
    ActiveSheet.Range("$A$1:$C$" & derl).AutoFilter Field:=3, Criteria1:= _
        CDate(Sheets("Procédure").Cells(8, 2).Text), Operator:=xlAnd
    'ActiveSheet.Range("$A$1:$C$" & derl).AutoFilter Field:=3
End Sub

 

[colorado95]

Re : Macro pour filtre automatique personnalisé

C'est tout simplement génial. Les mots me manquent. Un grand merci et total respect.
Je ne manquerai pas de faire appel à vos compétences, et encore chapeau.

 

[MJ13]

Re : Macro pour filtre automatique personnalisé

Re

Je ne manquerai pas de faire appel à vos compétences, et encore chapeau

Merci, mais bon, je n'ai pas, comme certains, de grandes compétences en la matière.