Microsoft 365 date si cellule effacée

Claudy · 22 Juillet 2024

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

VB:

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

Bonne journée,

Claudy

vgendron · 22 Juillet 2024

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

VB:

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

Claudy · 22 Juillet 2024

vgendron à dit:
bonjour
perso, j'utiliserais l'évènement _change plutot que _selectionchange

VB:

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

Bonjour et merci,
mais ça coince ici:

VB:

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 · 22 Juillet 2024

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

Microsoft 365 date si cellule effacée

Claudy

XLDnaute Accro

vgendron

XLDnaute Barbatruc

Claudy

XLDnaute Accro

vgendron

XLDnaute Barbatruc

Discussions similaires