Microsoft 365 date si cellule effacée

  • Initiateur de la discussion Initiateur de la discussion Claudy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Claudy

XLDnaute Accro
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
243
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
16
Affichages
1 K
Retour