Sub CreerUnMois()
Application.ScreenUpdating = False
NomDuMois = InputBox("Créer un nouveau mois", _
"Mois", _
Format(Date, "MMMM YY"))
If NomDuMois = "" Then
MsgBox Range("Le mois n'est pas défini")
Exit Sub
End If
Sheets("Recapdesmois").Unprotect
With Sheets("Recapdesmois")
For CompteurDeLigne = 5 To 13 Step 4
For compteurDeColonne = 3 To 9 Step 2
If .Cells(CompteurDeLigne, compteurDeColonne) = "" Then
Sheets("Cadre").Visible = True
Sheets("Cadre").Select
Sheets.Add
On Error GoTo GestionDesErreurs
ActiveSheet.Name = NomDuMois
On Error GoTo 0
Sheets("Cadre").Select
Cells.Select
Selection.Copy
Sheets(NomDuMois).Select
Cells.Select
ActiveSheet.Paste
Range("A5").Select
ActiveWindow.FreezePanes = True
Range("B1") = NomDuMois
Sheets("Recapdesmois").Activate
NomDuBouton = .Cells(CompteurDeLigne - 1, compteurDeColonne)
.Cells(CompteurDeLigne, compteurDeColonne) = NomDuMois
Sheets("Recapdesmois").DrawingObjects(NomDuBouton).Visible = True
ActiveSheet.DrawingObjects(NomDuBouton).Select
Selection.Characters.Text = NomDuMois
Sheets("Cadre").Visible = False
Application.GoTo Reference:=Worksheets(NomDuMois).Range("A4"), Scroll:=True
Application.GoTo Reference:=Worksheets("Recapdesmois").Range("A1"), Scroll:=True
Sheets("Recapdesmois").Protect
Exit Sub
End If
Next
Next
End With
MsgBox Range("une année s'est écoulé, recréez un fichier")
Application.GoTo Reference:=Worksheets("Recapdesmois").Range("A1"), Scroll:=True
GestionDesErreurs:
If Err = 1004 Then
Err = 0
MsgBox Range("le mois existe déjà")
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Sheets("Recapdesmois").Cells(CompteurDeLigne, compteurDeColonne) = ""
Application.GoTo Reference:=Worksheets("Recapdesmois").Range("A1"), Scroll:=True
Sheets("Recapdesmois").Protect
Exit Sub
End If
End Sub
Sub AffichageBouton()
With Sheets("Recapdesmois")
.DrawingObjects("Bouton 1").Visible = True
.DrawingObjects("Bouton 2").Visible = True
.DrawingObjects("Bouton 3").Visible = True
.DrawingObjects("Bouton 4").Visible = True
.DrawingObjects("Bouton 6").Visible = True
.DrawingObjects("Bouton 7").Visible = True
.DrawingObjects("Bouton 8").Visible = True
.DrawingObjects("Bouton 9").Visible = True
.DrawingObjects("Bouton 10").Visible = True
.DrawingObjects("Bouton 11").Visible = True
.DrawingObjects("Bouton 12").Visible = True
.DrawingObjects("Bouton 13").Visible = True
End With
Sheets("Recapdesmois").Select
Range("A1").Select
Sub MasquageBouton()
With Sheets("Recapdesmois")
.DrawingObjects("Bouton 1").Visible = False
.DrawingObjects("Bouton 2").Visible = False
.DrawingObjects("Bouton 3").Visible = False
.DrawingObjects("Bouton 4").Visible = False
.DrawingObjects("Bouton 6").Visible = False
.DrawingObjects("Bouton 7").Visible = False
.DrawingObjects("Bouton 8").Visible = False
.DrawingObjects("Bouton 9").Visible = False
.DrawingObjects("Bouton 10").Visible = False
.DrawingObjects("Bouton 11").Visible = False
.DrawingObjects("Bouton 12").Visible = False
.DrawingObjects("Bouton 13").Visible = False
End With
Sheets("Recapdesmois").Select
Range("A1").Select
End Sub