Ajout automatique de date lors de l'édition d'une ligne
Eric
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous.
Je souhaiterais avoir une colonne qui serve d'audit et qui recueillerait la date et l'heure dès lors qu'un autre champ de cette même ligne est modifié.
Il s'agit en fait de donne un sens d'audit à cette colonne.
Exemple, je commence à remplir B3 d'une donnée sur une ligne (3) qui est vide. J'aimerais avoir la colonne A qui se remplit de la date et l'heure du moment.
Je ne sais pas si cela existe en standard ou si je dois le développer.
Merci de votre aide.
Eric
Je souhaiterais avoir une colonne qui serve d'audit et qui recueillerait la date et l'heure dès lors qu'un autre champ de cette même ligne est modifié.
Il s'agit en fait de donne un sens d'audit à cette colonne.
Exemple, je commence à remplir B3 d'une donnée sur une ligne (3) qui est vide. J'aimerais avoir la colonne A qui se remplit de la date et l'heure du moment.
Je ne sais pas si cela existe en standard ou si je dois le développer.
Merci de votre aide.
Eric
A voir également:
- Ajout automatique de date lors de l'édition d'une ligne
- Partage de photos en ligne - Guide
- Réponse automatique thunderbird - Guide
- Formulaire en ligne de meta - Guide
- Word ligne horizontale automatique - Guide
- Mètre en ligne - Guide
2 réponses
Si la ligne est absolument VIDE, c'est-à-dire sans formule et sans critère de validation de données, il ne peut rien se passer ...
Bonjour
Il faut passer par une petite macro en VBA
ALT +F11 pour ouvrir l'éditeur
Double clic dans l'arborescence sur la feuille concernée
Copier et coller le code suivant dans la plage blanche et fermer l'éditeur
Cdlmnt
Il faut passer par une petite macro en VBA
ALT +F11 pour ouvrir l'éditeur
Double clic dans l'arborescence sur la feuille concernée
Copier et coller le code suivant dans la plage blanche et fermer l'éditeur
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A" & Target.Row) = Now
End Sub
Cdlmnt