Mise à jour de la date dans une cellule
Résolu
mikacontact34
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
mikacontact34 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
mikacontact34 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Le code VBA ci-dessous me sert à incrémenter un numéro automatique en colonne B lorsqu'une saisie est effectuée sur une ligne, et inscrit la date/heure de cette saisie en colonne C. Le code ci-dessous fonctionne très bien.
J'aurais souhaité pouvoir mettre à jour la date/heure en colonne C chaque fois qu'une modification est effectuée sur une des cellules de la ligne. Auriez vous une idée de comment faire cela svp?
Private Sub WorkSheet_Change(ByVal sel As Range)
If sel.CountLarge > 1 Then Exit Sub
If Application.CountA(Rows(sel.Row)) = 1 Then
Application.EnableEvents = False 'Evite de déclencher l'exécution du code quand on change la valeur de la colonne B
Cells(sel.Row, "B").Value = Application.Max(Columns("B")) + 1
Application.EnableEvents = True
Cells(sel.Row, "C").Value = Date + Time
End If
End Sub
A voir également:
- Mise à jour de la date dans une cellule
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Mise a jour chromecast - Accueil - Guide TV et vidéo
- Aller à la ligne dans une cellule excel - Guide
- Mise à jour libre office - Accueil - Bureautique
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
merci de préciser "Basic" quand tu partages du code VBA: https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code
Moi j'essaierais ceci:
Application.EnableEvents = False
If Application.CountA(Rows(sel.Row)) = 1 Then
Cells(sel.Row, "B").Value = Application.Max(Columns("B")) + 1
End If
Cells(sel.Row, "C").Value = Date + Time
Application.EnableEvents = True
Au top, une fois encore. Merci !!!