Affichage date modification de cellule excel

Excel

nicosyl -
OMER - 4 juil. 2014 à 10:08

Bonjour,
J'ai un fichier excel tout bête et j'aimerai lorsque certaines cellules sont modifiées avoir en bout de ligne la date de modification! mais je ne sais pas du tout comment faire... j'ai beaucoup regardé dans les différents forum sans trouver exactement ce que je cherchais.... quelqu'un a une idée??

voila l'exemple
A b c d
1 code date de modif
2 dsf sqfdf sqdf 28/12/09
3 azeer reyy yjyjfj 29/12/09

Merci d'avance pour votre aide!

Afficher la suite

A voir également:

Excel insérer date de dernière modification d'une cellule
Insérer liste déroulante excel - Guide
Insérer une vidéo dans powerpoint - Guide
Suivi de modification word - Guide
Excel cellule couleur si condition texte - Guide
Proteger cellule excel - Guide

7 réponses

Réponse 1 / 7

Luc

Bonjour,

Est il possible d'afficher la date de mise à jours d'une cellule ou d'un groupe de cellule en fin de ligne SANS utiliser de macro?

Réponse 3 / 7

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Bonjour,

macro événementielle à adapter à le feuille (caractères en gras) la date de modif d'une cellule dans A1:D50 est inscrite dans la colonne L

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligvid As Long
If Intersect(Target, Range("A1:D50")) Is Nothing Or Target.Count > 1 Then: Exit Sub
ligvid = Range("L65536").End(xlUp).Row + 1
Range("L" & ligvid) = Target.Address & " modifiée le " & Format(Date, "dd/mm/yy")
End Sub

pour installer:
faire un copier de celtte macro
clic droit dans le nom de l'onglet
visualiser le code
coller
adapter à la zone désirée et à la colonne désirée

nicosyl

Merci pour la macro, elle est pas mal, vraiment bien.
mais en fait elle affiche les modification à la suite, j'aimerai mieux avoir au bout de la ligne B la date de modif des cellules de la ligne B et que cette date soit remplacée lorsqu'une autre modif est faite.
Sais-tu comment faire? je n'ai pas réussi à partir de ta formule de modifer et d'adapter à mon cas....

merci d'avance!

OMER

Bonjour,
j'aimerais bien savoir comment peut-on ajouter l'heure de la modification dans cette formule? et on peut visualiser les changements comme liste déroulante?

merci

Réponse 5 / 7

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

tu voulais donc parler de colonnes ?

si oui

Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As byte

If Intersect(Target, Range("A1:D5")) Is Nothing Or Target.Count > 1 Then: Exit Sub
col = Target.column
Cells(6, col) = Target.Address & " modifiée le " & Format(Date, "dd/mm/yy")
End Sub

nicosyl

Merci beaucoup!
ca marche super.

Actuellement
- cellule A1 modifiée > affichage du résultat dans A6

Objectif
comment tu fais pour passer ce résultat dans B1

Je suppose que tu remplaces
"col = Target.column" par row= Target.row" mais ça ne marche pas

Puis tu modifies Cells(6, col)

Merci d'avance pour ton aide

nonac > nicosyl

bonjour j'ai exactement le même type d'info à intégrer dans un tableau
mais cette formule ne fonctionne apparemment pas chez moi.
ma colonne D est amenée à être modifiée à partir de la ligne 9 et j'aimerai que la date figure
au bout de chaque lignes dans la colonne G

Merci d'avance pour votre aide

Réponse 7 / 7

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Je comprend plus rien à ce que tu veux faire !!!

A chaque fois, j'ai l'impression que tu changes ta demande

Alors, STP, écris d'une façon claire et définitive ce que tu veux

nicosyl

ta formule est exactement ce que je veux!
mais j'aimerai la transposer pour l'utiliser autrement, en modifiant l'endroit où le "modifié ..." s'affiche.
Au lieu d'avoir "modifée.." dans A6 lorsque A1 est modifié, je veux l'avoir dans F1
tu vois ce que je veux dire?
merci encore pour ton aide!

nicosyl > nicosyl

en fait je pense avoir trouvé la solution :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Byte

If Intersect(Target, Range("A1:D5")) Is Nothing Or Target.Count > 1 Then: Exit Sub
Row = Target.Column
Cells(Target.Row, 6) = Target.Address & " modifiée le " & Format(Date, "dd/mm/yy")
End Sub

corrige moi si je me plante mais ca a l'air de marché...
merci encore pour les aides!

Discussions similaires

Automatiser une facturation sur excel

Convertir minuscule en majuscule sous excel

Créer des cartes sur Word Excel et Powerpoint

raccourci sur Excel - sigle diamètre

Logiciel de gestion bovin

violation de partage

Votre réponse

Discussions similaires