Faire coïncider un code à double clic (double en D et E)

Bonjour,

En fait le code sur la feuille est le suivant, comment le former pour qu'il accepte les deux conditions?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 3 Then

Cells(Target.Row, 4) = Date

Cells(Target.Row, 1).Interior.ColorIndex = 4

Cells(Target.Row, 4).Interior.ColorIndex = 4

End If

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("E:E")) Is Nothing And IsEmpty(Target) Then

UserForm1.Show

Else

Cancel = True

End If

End Sub

Merci par avance.

Edit Dan : merci de placer tes fichiers en cliquant sur "joindre un fichier" quand cela est possible. Là sur Cjoint, ils ne seront plus visibles dans 3 semaines.

https://www.excel-pratique.com/~files/doc2/pyrana_1.xls

Bonjour,

Suite de ce fil ? --> https://forum.excel-pratique.com/viewtopic.php?p=83677

Essaie ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("C:C")) Is Nothing And IsEmpty(Target) Then
Cells(Target.Row, 4) = Date
Cells(Target.Row, 1).Interior.ColorIndex = 4
Cells(Target.Row, 4).Interior.ColorIndex = 4
End If
If Not Application.Intersect(Target, Range("E:E")) Is Nothing And IsEmpty(Target) Then
UserForm1.Show
End If
Cancel = True
End Sub

Amicalement

Dan

Oui. Merci.

Problème seul l'USF s'execute.

Pour ce qui est de l'autre double clic il est sans effet.

A+

En fait c'est ok. C'est que dans mon fichier original, les cases -en C-, ne sont pas vides.