Microsoft 365 date si cellule effacée

[Claudy]

Bonjour,
je bloque sur ce qui me semble un détail:
comment dans ma colonne "I" , si j'efface le contenu, à la place vient s'y inscrire la date du jour?
Dans le genre:
Via

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value Like "" Then date 'mais lorsque je delete...

Bonne journée,

Claudy

 

[vgendron]

bonjour
perso, j'utiliserais l'évènement _change plutot que _selectionchange

enableevents=false
if target="" then target=date
enableevents=true

 

[Claudy]

bonjour
perso, j'utiliserais l'évènement _change plutot que _selectionchange

enableevents=false
if target="" then target=date
enableevents=true

Bonjour et merci,
mais ça coince ici:

Private Sub Worksheet_Change(ByVal Target As Range)
'On Error Resume Next
If Not Intersect(Target, Range("N1000 , N3200")) Is nothinhg Then

    EnableEvents = False
    If Target = "" Then Target = Format(Now, "dd/mm/yyyy")
    EnableEvents = True
    End If
    
End If
End Sub

 

[vgendron]

qu'est ce qui coince??

sinon, je pense que le enableevents=true n'est pas à la bonne place.. il faut le remettre juste avant le end sub