Affichage date modification de cellule excel [Fermé]

Signaler
-
 OMER -
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!

7 réponses

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?
5
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
16232
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 octobre 2020
3 047
Non c ca tu as bien adapté
!!!

Enlève les lignes

Dim col As Byte
et
Row = Target.Column
Messages postés
16232
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 octobre 2020
3 047
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
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!
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
Messages postés
16232
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 octobre 2020
3 047
qu' appelle tu la ligne B?
en fait, si il y a une modif dans B1:B5 je veux avoir dans B6 "modifiée le ...."
et de même pour C, D, ... et ce meme si je ne les modifie pas dans l'ordre.
Messages postés
16232
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 octobre 2020
3 047
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
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
> 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
Messages postés
16232
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 octobre 2020
3 047
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
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
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!
Messages postés
1144
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
58
non c ca tu as bien adapté