Code de la feuille à modifier

Bonjour,

Modifier de sorte qu'un deuxième double clic en B efface la date et la coloration que provoque un premier double clic (en B) ?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column = 2 Then
Cells(Target.Row, 3) = Date
Cells(Target.Row, 1).Interior.ColorIndex = 4
End If
End Sub

merci !!!

Bonjour,

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Target.Column = 2 Then
        If Cells(Target.Row, 3) = "" Then
            Cells(Target.Row, 3) = Date
            Cells(Target.Row, 1).Interior.ColorIndex = 4
        Else
            Cells(Target.Row, 3) = ""
            Cells(Target.Row, 1).Interior.ColorIndex = xlNone
        End If
    End If
End Sub

A+

bonjour

EDIT : Bonjour Frangy...

réponse en doublon.....

fred

Bonsoir

A tester

ok merci beaucoup