Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
If Target.Column = 4 Then
If Target = "" Then Cells(Target.Row, 4) = Date
If Target <> "" Then Target.Interior.Color = RGB(0, 255, 0)
End If
End With
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Oust As Boolean)
If R.Column = 4 Then
Oust = 1
R = IIf(IsDate(R), "", Date)
If R = "" Then R(1, 8) = ""
End If
If R.Column = 11 Then
If R(1, -6) <> "" Then
Oust = 1
R = IIf(IsDate(R), "", Date)
End If
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column >= 1 Then
Cells(Target.Row) = Date
If Target <> "" Then Target.Interior.Color = RGB(0, 255, 0)
End If
End With
Cancel = True
End Sub
dans ce cas (et pas un autre)... je veux dire quelque soit la cellule pas seulement en colonne 4 (D).
Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Oust As Boolean)
Oust = 1: R = Date: R.Interior.Color = vbGreen
End Sub