Macro pour filtre automatique personnalisé

colorado95 · 16 Octobre 2010

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 · 16 Octobre 2010

Re : Macro pour filtre automatique personnalisé

Bonjour Colorado95

Tu peux tester cette macro:

Code:

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 · 16 Octobre 2010

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 · 16 Octobre 2010

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.

Macro pour filtre automatique personnalisé

colorado95

Guest

Pièces jointes

MJ13

XLDnaute Barbatruc

colorado95

Guest

MJ13

XLDnaute Barbatruc

Discussions similaires

Macro pour filtre automatique personnalisé

colorado95

Guest

Pièces jointes

MJ13

XLDnaute Barbatruc

colorado95

Guest

MJ13

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency