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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| Private Sub Initialiser_Click()
Application.ScreenUpdating = False
Sheets("Saisie").Unprotect "pswabillet"
Propre
PropreTableauxSaisie
PropreTableauxResultats
Sheets("Saisie").Cells(27, 8).Value = Date
If Str(Weekday((Sheets("Saisie").Cells(27, 8).Value), return_type)) = Str(6) Or Str(Weekday((Sheets("Saisie").Cells(27, 8).Value), return_type)) = Str(7) Then
'MsgBox "week end"
Sheets("Saisie").Cells(3, 3).Value = 7
Sheets("Saisie").Cells(3, 4).Value = 45
Sheets("Saisie").Cells(4, 3).Value = 7
Sheets("Saisie").Cells(4, 4).Value = 45
Sheets("Saisie").Cells(9, 2).Select
Else
' MsgBox "semaine"
Sheets("Saisie").Cells(3, 3).Value = 17
Sheets("Saisie").Cells(3, 4).Value = 0
Sheets("Saisie").Cells(4, 3).Value = 7
Sheets("Saisie").Cells(4, 4).Value = 45
Sheets("Saisie").Select
Sheets("Saisie").Cells(9, 2).Select
End If
Application.DisplayAlerts = False
Sheets("Accueil").Delete
sommaire_hyper_lien
Sheets("Accueil").Select
SupLigneCalcul
Sheets("Saisie").Select
Range("H28").ClearContents
Sheets("Saisie").Cells(9, 2).Select
Sheets("Saisie").Protect "pswabillet"
End Sub |
Partager