VBA Code pour filtrer une colonne avec un nom spécifique

Bonjour, il suffit de nommer ta colonne par un Nom et de placer ce noms dans ta formule au lieu de la plage

Bonjour M-12

Je vous remercie pour votre retour. J'ai essayé ceci mais ça ne fonctionne pas

PI, GAMA est le nom de ma colonne

ActiveSheet.Range(GAMA).AutoFilter Field:=GAMA, Criteria1:="Codé"

Merci pour votre aide

Cordialement

Re,

Oui en effet c'est plus simple je ne voulais pas abuser.

Voici le lien

https://www.cjoint.com/c/LHoofeTsiCN

Cordialement

Oups au temps pour moi je ne l'avais pas fait dans le fichier joint

En voici un avec

 https://www.cjoint.com/c/LHooD32rRYN

Petite question, le fait d'avoir nommé ma colonne GAMA (qui va être dynamique et se déplacer) est ce que je pourrais le faire en VBA en cherchant la cellule ou il sera inscrit GAMA ?

Merci pour votre aide,

Re bonjour ozone_,

Super je confirme que ça marche nickel. Désolé j'aurais dû le préciser en effet.

Petite question, saurais tu comment nommer ma colonne GAMA en VBA ?

Merci pour ton aide

Cordialement

Re bonjour,

Désolé pour mon manque de clarté. Pour que le code ci dessous fonctionne

ActiveSheet.Range("$B$1:$U$1").AutoFilter Field:=Range("GAMA").Column - 1, Criteria1:="Codé"

J'ai dû nommer la colonne où se trouve GAMA.

Du coup j'aimerais le faire en VBA. J'ai trouver cette boucle me permettant de trouver mon "titre", Cependant avoir l'info sur un msgbox ne m'intéresse pas. Ce que je voudrais c'est que dès qu'il a trouvé mon "titre" via la boucle, il sélectionne toute la colonne afin que je puisse la renommer ?

dim colonne, ligne as variant

ligne = 1
colonne = 1
do while cells (ligne, colonne) <> "titre" ' tant que la cellule située en ligne 2 et colonne 1 est différent de titre

colonne = colonne +1 'on ajoute 1 à colonne pour passer à la colonne suivante
loop

a=magbox("La colonne où se trouve titre est " & colonne)

Cordialement

C'est formidable ça fonctionne parfaitement.

Un sincère et grand merci pour ton aide et celles des autres

Bonjour à chacun d'entre vous,

Je vous remercie tous pour votre aide,

J'ai essayé ceci, mais j'ai une erreur d'exécution '1004' la méthode 'range' de l'objet_Global a échoué

ActiveSheet.Range("$B$1:$U$11501").AutoFilter Field:=Range("GAMA").Column, Criteria1:="2"

ActiveSheet.Range("$B$1:$U$11501").AutoFilter Field:=Range("GAMA").Column, Criteria1:="Codé"

ActiveSheet.Range("GAMA").AutoFilter Field:=Range("GAMA").Column, Criteria1:="2"

ActiveSheet.Range("GAMA").AutoFilter Field:=Range("GAMA").Column, Criteria1:="Codé"

Cordialement