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

Christian0258 · 4 Avril 2013

Bonjour à tout le forum,

Je souhaiterais votre aide afin de faire "cohabiter" ces deux "ApplicationIntersect(Target...)
voir fichier

Merci pour votre aide si précieuse.

Bien amicalement,
Christian

Dull · 4 Avril 2013

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

Salut Christian0258, Job, le Forum

Peut-être comme cela

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

Partie en gras à ajouter

Bonne Journée

Christian0258 · 4 Avril 2013

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

Re, le forum Dull,

Merci beaucoup, Dull, pour le boulot, ça fonctionne parfaitement.

Bien à toi,
Christian

laetitia90 · 4 Avril 2013

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

bonjour tous

comme je comprends??
en restant sur le code de l' ami Job

Code:

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

salut Dull pas rafraichi sorry

Christian0258 · 4 Avril 2013

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

Re, le forum, Dull, laetitia,

Merci également, laetitia, pour ton aide.
Ton code fonctionne également très bien.

Encore merci, bien à vous,
Christian

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

Christian0258

XLDnaute Accro

Pièces jointes

Dull

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

laetitia90

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

Discussions similaires