ApplicationIntersect(Target...Comment faire cohabiter ces 2 codes...

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

Cliquez pour agrandir...