Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Select Case Sh.Name
Case "Total Général", "ODA", "Facture Matériel", "Données" 'lister les pages non concernées par le calendrier
Case Else
If Not Intersect(Target, Range("D:E")) Is Nothing Then
If Target <> "" Then
Calendrier.Hide
Else
Calendrier.Show
Cancel = True
End If
End If
End Select
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Sh.Name
Case "Total Général", "ODA", "Facture Matériel", "Données" 'lister les pages non concernées par le calendrier
Case Else
If Target.Count = 1 Then Exit Sub
If Not Intersect(Target, Range("D:E")) Is Nothing Then
If Target = "" Then Exit Sub
If LUserform = False Then
With Application
.ScreenUpdating = False
End With
MsgBox "Utilisez le calendrier (Clic droit sur la celule " & Target.Address(0, 0) & ")"
End If
LUserform = False
End If
End Select
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("D:E")) Is Nothing Then
If Target <> "" Then
Cancel = True
Calendrier.Hide
MsgBox "Vous ne pouvez pas modifier la date", , "ERREUR"
End If
End If
End Sub