Bernard-Louis
XLDnaute Occasionnel
Bonjour le forum,
Dans cette macro, je souhaite mettre une condition sur "Selection autofilter"
C'est a dire que si il y a deja un Filtre automatique ( ne rien faire) et si l' y en a pas (en mettre un)
Merci pour l'aide et bonne journée.
Dans cette macro, je souhaite mettre une condition sur "Selection autofilter"
C'est a dire que si il y a deja un Filtre automatique ( ne rien faire) et si l' y en a pas (en mettre un)
Merci pour l'aide et bonne journée.
Code:
Sub Classeur_Excel()
Rows("1:1").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.AutoFilter
Range("A2").Select
ActiveWindow.FreezePanes = True
Range("A1:IV65536").Select
With Selection.Font
'.Name = "Arial"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Columns("A:IV").EntireColumn.AutoFit
ActiveWindow.DisplayGridlines = False
Range("A2").Select
End Sub