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

delsart59

XLDnaute Nouveau
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 :


VB:
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
 

Pièces jointes

  • Classeur1.xlsm
    16.7 KB · Affichages: 4

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo