Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
Cancel = -1
If c.Column = 9 And IsNumeric(c) Then c(1, 3).Value = c
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 Then
'code1
ElseIf Target.Column = 11 Then
'code 2
Else
' code 3
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 11 Then Target.Value = Target.Offset(, -2)
If Target.Column = 5 Then
Set Cel = Target
Calendrier1.Show
Else
Exit Sub
End If
Cancel = True
End Sub