apt à dit:ne pas voir la barre de défilement.
Comment réaliser cela ?
apt à dit:j'aimerais limiter les lignes de 1 à 20 et les colonnes de A à F
comment masquer les lignes en partant de la 20ème ?
cordialementSub Macro1()
With Worksheets("Entrée")
.Activate
.Columns("M").Select
.Range(Selection, Selection.End(xlToRight)).EntireColumn.Hidden = True
.Rows("21").Select
.Range(Selection, Selection.End(xlDown)).EntireRow.Hidden = True
.ScrollArea = "A1:L20"
.Range("A1:L20").Select
ActiveWindow.Zoom = True
End With
End Sub
Sub Macro1()
'
With Worksheets("Entrée")
.Activate
.Columns("M").Select
.Range(Selection, Selection.End(xlToRight)).EntireColumn.Hidden = True
.Rows("21").Select
.Range(Selection, Selection.End(xlDown)).EntireRow.Hidden = True
.ScrollArea = "A1:L20"
.Range("A1:L20").Select
End With
With ActiveWindow
.Zoom = True
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
End Sub
Private Sub Worksheet_Activate()
With Me 'Worksheets("Entrée")
.Range(Columns("H"), Columns("H").End(xlToRight)).EntireColumn.Hidden = True
.Range(Rows("21"), Rows("21").End(xlDown)).EntireRow.Hidden = True
.ScrollArea = "A1:L20"
.Range("A1:L20").Select
ActiveWindow.Zoom = True
.Range("H21").Select
ActiveWindow.FreezePanes = True
End With
End Sub