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
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