Private Sub Workbook_Open()
Sheets(1).Select
[B3] = Date
[A2] = Year(Date)
Call afficher
PlanifierFermeture
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A5:A35")) Is Nothing Then
If ActiveSheet.Index = 1 Or ActiveSheet.Index = 14 Or Target.Value = "" Then Exit Sub
If ActiveSheet.Index = 3 And Month(Target) > Month(Target.Offset(-1, 0)) Then
[A1].Select
Exit Sub
End If
Application.ScreenUpdating = False
Sheets(1).Select
[B3] = Target.Value
On Error Resume Next
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = (Target.Value * 1 - DateSerial(Year([B3]), 1, 1) * 1) * 15 + 3
Application.ScreenUpdating = True
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("B6:DV36")) Is Nothing And Target.Interior.ColorIndex = 4 Then
If ActiveSheet.Index > 1 Or ActiveSheet.Index < 13 Then
MsgBox ("DATE du Rendez-vous" & vbLf & vbLf & Format(Cells(Target.Row, 1), "dd/mm/yyyy") & vbLf & _
vbLf & "à " & vbLf & vbLf & Format(Cells(5, Target.Column), "hh:mm"))
End If
End If
PlanifierFermeture
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
PlanifierSauvegarde
End Sub
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
PlanifierFermeture
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DéplanifierTout
End Sub