Code d'extention de sélection

[Franckxxx]

Bonjour à tous!

J'effectue actuellement un premier stage en entreprise et un détail sur mon macro me laisse perplexe.
Après avoir écrit entièrement mon code permettant d'automatiser mon processus, la relecture montre que certains détails nécessitent une modification:

" ActiveSheet.Range("$A$1:$AG$11038").AutoFilter Field:=28, Criteria1:="N" "

Ce problème revient régulièrement, mon fichier comportant les données possède actuellement 11037lignes donc le code marche pour ce cas précis, cependant ce fichier varie je cherche donc a modifier mes lignes de code de sorte que le macro marche dans tous les cas possibles.

Je sais que mon code doit comporter des codes du type End(xlUp).Row (remonter ligne par ligne en partant de la dernière) mais je ne sais pas comment l'adapter à ce cas précis ni l'utilité de $.

Merci d'avance pour votre aide. 🙂

 

[Pierrot93]

Re : Code d'extention de sélection

Bonjour,

essaye peut être ceci :

Range("A1:AG" & Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=28, Criteria1:="N"

bon après midi
@+

 

[gilbert_RGI]

Re : Code d'extention de sélection

Bonjour

comme ceci peut-être ?

derl = activesheet.Range("ag65536").end(xlup).row + 1

ActiveSheet.Range("$A$1:$AG$" & derl).AutoFilter Field:=28, Criteria1:="N"

 

[Staple1600]

Re : Code d'extention de sélection

Bonsoir à tous

Deux autres écritures possibles

Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, "AG")).AutoFilter 28, "N"

et celle-ci (qui est à utiliser avec précaution, car il ne doit pas y avoir de "trous" dans le tableau)

Range("A1").CurrentRegion.AutoFilter 28, "N"