Sub Préparer_feuille_Travail()
'
' Préparer_feuille_Travail Macro
'
'
Application.ScreenUpdating = False
Sheets("Travail").Select
ActiveSheet.Unprotect
Rows("50:58").EntireRow.Hidden = False
Range("E57").Value = "1"
Rows("51:57").EntireRow.Hidden = True
Range("A1").FormulaR1C1 = "=YEAR(TODAY())"
ActiveSheet.Shapes.Range(Array("Button 3")).Characters.Text = "Prêt"
'=====================================================================
'=====================================================================
'Tout ce qui il a entre les lignes === me paraît facultatif.
'Faut que tu essaies en les mettant un par un en commentaire voir ce qu'il fait.
With Selection.Characters(Start:=1, Length:=4).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
Range("AG24").Select
ActiveSheet.Shapes.Range(Array("Button 3")).Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 50
'.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
'=====================================================================
'=====================================================================
Range("A1").Select
Sheets("Travail").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub