1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Sub Protec_grille()
'
' Protec_grille Macro
'
' Touche de raccourci du clavier: Ctrl+f
'
Range("AR33:AT33").Select
ActiveCell.FormulaR1C1 = "1"
Range("AR33:AT33").Select
Selection.ClearContents
Range("BQ32:BU32").Select
ActiveCell.FormulaR1C1 = "2"
Range("BQ32:BU32").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=165
Range("AE205:AG205").Select
ActiveCell.FormulaR1C1 = "-10"
Range("AE205:AG205").Select
Selection.ClearContents
Range("AO213:AS213").Select
ActiveCell.FormulaR1C1 = "2"
Range("AO213:AS213").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-255
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub |
Partager