anthoYS
XLDnaute Barbatruc
Bonjour,
Quoi mettre et où svp ?
après Target.Interior.Color...
Non car ça l'affiche bien mais en ligne 1 sur la colonne du double clic.
Merci
VB:
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 ?
VB:
Cells(Target.Row) = Date
Non car ça l'affiche bien mais en ligne 1 sur la colonne du double clic.
Merci