Rajouter la date du double clic dans la cellule double cliqué (code feuille)? [réglé]

[anthoYS]

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:N11")) Is Nothing Then
       Target.Interior.Color = IIf(Target.Interior.Color = vbGreen, xlNone, vbGreen)
    End If
End Sub

Quoi mettre et où svp ?

Cells(Target.Row) = Date

après Target.Interior.Color...

Non car ça l'affiche bien mais en ligne 1 sur la colonne du double clic.


Merci

 

[vgendron]

Hello
remplace simplement
Cells(Target.Row) = Date
par
Target=Date

 

[anthoYS]

Merci beaucoup !