Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim t As String
If Not Intersect(Target, [S11:S31]) Is Nothing Then Cancel = True: Target = IIf(Target = "ü", "", "ü")
If Application.Intersect(Target, [Q11:Q52]) Is Nothing Then Exit Sub
Cancel = True
Target = IIf(Target = "ü", "", "ü")
t = Trim(Left(Target(1, -13), InStr(Target(1, -13) & "(", "(") - 1))
Target(1, -13) = t
If Target = "ü" And Target(1, -13) <> 0 And IsDate([Q9]) Then
Target(1, -13) = t & " (Conso : " & Format([Q9] + 0, "ddd dd mmm yyyy") & ")"
Target(1, -13).Characters(Len(t) + 4).Font.ColorIndex = 3
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, [Q11:Q52,s11:s52]) Is Nothing Then Exit Sub
Dim t As String
If Target.Column = 17 Then
Cancel = True
Target = IIf(Target = "ü", "", "ü")
t = Trim(Left(Target(1, -13), InStr(Target(1, -13) & "(", "(") - 1))
Target(1, -13) = t
If Target = "ü" And Target(1, -13) <> 0 And IsDate([Q9]) Then
Target(1, -13) = t & " (Conso : " & Format([Q9] + 0, "ddd dd mmm yyyy") & ")"
Target(1, -13).Characters(Len(t) + 4).Font.ColorIndex = 3
End If
Else
Target = IIf(Target = "ü", "", "ü")
End If
End Sub