Autres Problème de séléction de la dernière colonne + Filtre [VBA]

[delsart59]

Bonjour à tous,

Dans le but d'automatiser un fichier, je souhaiterais aller à la dernière colonne non vide et filtrer celle-ci.

J'ai écris un bout de code correspondant au fichier joint :

Sub Macro1()
'
' Macro1 Macro
'

Sheets("Feuil2").Select
Rows("2:2").Select
Selection.AutoFilter
Selection.AutoFilter

'Filtre dernière colonne
der_colonne = Cells(2, Columns.Count).End(xlToLeft).Select
colonne = ActiveCell.Column
ActiveSheet.Range("$A$2:$AI$25930").AutoFilter Field:=colonne, Criteria1:="<0"
'Filtre dernière colonne -1
colonne = ActiveCell.Column - 1
ActiveSheet.Range("$A$2:$AI$25930").AutoFilter Field:=colonne, Criteria1:="<0"

'Filtre dernière colonne -2
colonne = ActiveCell.Column - 2
ActiveSheet.Range("$A$2:$AI$25930").AutoFilter Field:=colonne, Criteria1:="<0"

'Filtre dernière colonne -3
colonne = ActiveCell.Column - 3
ActiveSheet.Range("$A$2:$AI$25930").AutoFilter Field:=colonne, Criteria1:="<0"

End Sub

En lancant le VBA, je voudrais que la macro filtre les 4 dernières colonnes non-vide (M2,N2,O2 et P2). Actuellement, il va à la dernière cellule contenant un filtre.

Je ne peux pas supprimer les colonnes qui suivent avec un filtre car des données vont venir s'y intégrer par la suite.

Pourriez-vous me venir en aide s'il vous plaît ?

Cordialement

 

[gbinforme]

Bonjour,

Ta macro modifiée mais attention sur ton classeur les dernières colonnes n'étaient pas vides

 

[delsart59]

Bonjour Gbinforme,

Un grand merci pour ton aide, tout fonctionne correctement.

Cordialement