Insert Date double click zone cellules nommée

Gil_Se

XLDnaute Occasionnel
Bonjour à tous.

Je souhaiterais appliquer cette fonction, insertion de la date en faisant un double clic, à une zone de cellules nommée "DepartRetour" au lieu de uniquement la colonne 3

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then Target.Value = Now: Cancel = True
End Sub

Merci pour votre aide

Gilles
 

Roland_M

XLDnaute Barbatruc
Re : Insert Date double click zone cellules nommée

Bonsoir,

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("DepartRetour")) Is Nothing Then Target.Value = Now: Cancel = True
End Sub
 
Haut Bas