Insert Date double click zone cellules nommée

Gil_Se · 22 Juin 2016

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 · 22 Juin 2016

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

Gil_Se · 22 Juin 2016

Re : Insert Date double click zone cellules nommée

Merci Roland.

Insert Date double click zone cellules nommée

Gil_Se

XLDnaute Occasionnel

Roland_M

XLDnaute Barbatruc

Gil_Se

XLDnaute Occasionnel

Discussions similaires

Insert Date double click zone cellules nommée

Gil_Se

XLDnaute Occasionnel

Roland_M

XLDnaute Barbatruc

Gil_Se

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency