RESOLU - Code n'inscrit pas la date du jour - Par DoubleZero

[castor30]

Bonjour à chacun de vous
Je viens vers vous pour solliciter votre aide car le code ci-dessous n'inscrit pas la date du jour dans la cellule
Je vous remercie de bien vouloir apporter la (les) correction(s) nécessaire(s)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   'Mettre X colonne Sel
Target.Offset(0, 1) = Date
If Target.Row / 2 = Int(Target.Row / 2) Then
Target = "X"
'Target.Offset(0, 1) = Format(Date, "dd/mm/yyyy")
Target.Offset(0, 1) = Format("15/06/2017", "dd/mm/yyyy")
Target.Offset(0, 1).Select
End If
End Sub

 

[DoubleZero]

Bonjour, castor30, le Forum,

Comme ceci ?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Offset(0, 1) = Date
    If Target.Row / 2 = Int(Target.Row / 2) Then
        Target = "X"
        Target.Offset(0, 1) = Date
        Target.Offset(0, 1).Select
    End If
    Cancel = True
End Sub

A bientôt

 

[castor30]

Bonjour DoubleZero
C'est parfait effectivement
Tous mes remerciements