Insert Date double click zone cellules nommée

[Gil_Se]

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]

Re : Insert Date double click zone cellules nommée

Bonsoir,

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

 

[Gil_Se]

Re : Insert Date double click zone cellules nommée

Merci Roland.