=C3=89videmment, il fait r=C3=A9f=C3=A9rence =C3=A0 la 29e colonne de ma fe=
uille. Comme je vais devoir ajouter des colonnes, je me demandais si je pou=
vais "nommer" le filtre actuellement # 29 pour que ma macro s'ajuste automa=
tiquement lors de l'ajout d'une colonne.
Si dans ton code, tu veux remplacer le "29" soit la dernière colonne de ta plage de cellules pour le filtre, '------------------------- Sub test() Dim LastCol As Long With Worksheets("Feuil1") 'Adapte le nom de la feuille au besoin LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column .Range("$A$5:$AF$344").CurrentRegion.AutoFilter Field:=LastColumn End With End Sub '------------------------- MichD
Le 11/févr./2019 à 11:33, bureaubepdpacq@gmail.com a écrit :
Si dans ton code, tu veux remplacer le "29" soit la dernière colonne de
ta plage de cellules pour le filtre,
'-------------------------
Sub test()
Dim LastCol As Long
With Worksheets("Feuil1") 'Adapte le nom de la feuille au besoin
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
.Range("$A$5:$AF$344").CurrentRegion.AutoFilter Field:=LastColumn
End With
End Sub
'-------------------------
Si dans ton code, tu veux remplacer le "29" soit la dernière colonne de ta plage de cellules pour le filtre, '------------------------- Sub test() Dim LastCol As Long With Worksheets("Feuil1") 'Adapte le nom de la feuille au besoin LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column .Range("$A$5:$AF$344").CurrentRegion.AutoFilter Field:=LastColumn End With End Sub '------------------------- MichD