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