Macro Filtre par nom

Question

J'ai effectuer une macro à l'aide de l'enregistreur de macro, je souhaiterais dorénavant modifier le code pour généraliser ma formule afin qu'il soit opérationnel pour tous mes fichiers excel. Je désirerais à l'aide de ma macro partir d'un fichier Sans filtre puis filtrer certaines colonnes en fonction de leur nom. Pour le moment mon code ressemble a cela mais il filtre en fonction de l'emplacement de la colonne et non du nom. Range("AB6").Select ActiveSheet.Range("$A$1:$BE$3978").AutoFilter Field:=28, Criteria1:="&lt;&gt;" ActiveSheet.Range("$A$1:$BE$3978").AutoFilter Field:=33, Criteria1:= _ "=En attente de validation", Operator:=xlOr, Criteria2:="=Validé"...

MFerrand · Answer

Pour te désengluer de l'enregistreur, supprime le Range.Select (absurde !), définit la plage filtrée sur la 1re ligne : "A1:BE1" (et tu n'écris pas une formule, donc les $ n'ont aucun intérêt !), supprime les noms d'arguments (le passage par position est tout aussi efficace !)... Par contre, il te faudra rechercher la position des noms de champs à filtre (soit récupérer dans des variables les numéros de colonnes des champs souhaités, &#91;numéros de colonnes puisque la colonne A correspond au champ 1...&#93;). Cordialement...

Jean-Eric · Answer

Pour étayer les propos de MFerrand (que je salue !), je te propose de regarder l'exemple dans le fichier joint. Cdlt...

Jean-Eric · Answer

RE,

Un truc du genre, ci-dessous ?

Cdlt.

strCol = "Saisie"
    With Sheets("Données")
        With .Cells
            Set r = .Find(what:=strCol, LookIn:=xlValues, lookat:=xlWhole)
            If Not r Is Nothing Then
                lCol = r.Column
                Set Rng = .Cells(2, lCol).Resize(.Cells(.Rows.Count, lCol).End(xlUp).Row - 1)
                Rng.Copy Destination:=Sheets("Fichier Synthèse").Range("J3")
            End If
        End With
    End With
    With Sheets("Fichier Synthèse")
        .Activate
        .[J3].Select
    End With

Jean-Eric · Answer

Re, Et si tu joignais un fichier ? Cdlt...