Affichage date modification de cellule excel

Fermé

Excel

nicosyl - 28 déc. 2009 à 16:38
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!

A voir également:

Excel insérer date de dernière modification d'une cellule
Insérer liste déroulante excel - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Insérer signature word - Guide
Excel cellule couleur si condition texte - Guide

7 réponses

Réponse 1 / 7

Luc
8 juin 2012 à 11:02

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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
28 déc. 2009 à 17:10

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
28 déc. 2009 à 17:32

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
4 juil. 2014 à 10:08

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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
28 déc. 2009 à 17:51

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
28 déc. 2009 à 18:05

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
7 janv. 2010 à 10:10

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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
28 déc. 2009 à 18:12

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
28 déc. 2009 à 18:16

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
28 déc. 2009 à 18:35

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

date de modification d'une cellule excel

insérer la date de modif d'une cellule Excel

Excel-MAJ date si modif cellule de la ligne

EXCEL : date de modification d'une cellule

mise en forme conditionnelle - alerte date

Formule Excel pour afficher les mois (chiffres) en lettre

Discussions similaires

Newsletters