Bonjour,
Je suis pas fichu de trouver la solution pour pouvoir vider la cellule si la date s'y trouve avec ce code:
Pouvez-vous aider ? Je sais ça va faire sourire certains...
Meilleures salutations,
Thierry
Je suis pas fichu de trouver la solution pour pouvoir vider la cellule si la date s'y trouve avec ce code:
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("K1 , P32")) Is Nothing Then
Cancel = True
If Target.Range("K1 , P32") = "" Then
Target = Format(Now, "dd.mm.yyyy")
Else
Target = ""
End If
End If
End Sub
Pouvez-vous aider ? Je sais ça va faire sourire certains...
Meilleures salutations,
Thierry