date de mise a jour

[Geraldine]

bonjour,

Je cherche une formule qui me donnerait la date de modification d'une cellule

en cellule A1 j'ai un montant
en cellule A2 j'ai la date de modification de la cellule A1

A chaque changement de valeur dans A1, la date du jour s'inscrit dans A2.

Merci

 

[Cousinhub]

Re : date de mise a jour

Bonjour géraldine,
essaie ce code à insérer dans l'évènement de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1], Target) Is Nothing Then [A2] = Date
End Sub

Clic-droit sur l'onglet, visualiser le code et coller ce code

 

[Geraldine]

Re : date de mise a jour

bonjour bhbh,

comme je m'attendait à une formule j'ai fait simple, et donc, ce que tu me proposes est très bien mais comment l'adapter à

en cellule A10 j'ai un montant
en cellule B10 j'ai la date de modification de la cellule A10
ou mais je veux le faire a chaque ligne jusqu'a ligne 2000 environ

désolé ne ne pas avoir été plus précis,

@

 

[Jocelyn]

Re : date de mise a jour

Bonjour le Forum,
Bonjour Geraldine, bhbh,

un essai en fichier joint

Jocelyn

 

[Cousinhub]

Re : date de mise a jour

Re-,
remplace par ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A10:A" & [A65000].End(xlUp).Row), Target) Is Nothing Then Target.Offset(0, 1) = Date
End Sub

 

[Geraldine]

Re : date de mise a jour

merci à tous les deux, c'est très bien, impeccable !

Cordialement,
Géraldine

 

[Geraldine]

Re : date de mise a jour

j'ai un petit problème, oui le code marche quand on change la valeur dans la cellule et dans la feuille, mais comme je transfert la valeur "modifiée" à partir d'une userform + textbox dont le code :

Sheets("ARTICLE").Range("b65536").End(xlUp).Offset(0, 8).Value = UserFormArt.TextBoxP & ""

ça ne fonctionne plus, pour lui je n'ai pas fait de modif ??
@

 

[Cousinhub]

Re : date de mise a jour

Re-, dans ce cas, pas besoin de code évènementiel,
en partant de ton code :

Sheets("ARTICLE").Range("b65536").End(xlUp).Offset(0, 8).Value = UserFormArt.TextBoxP & ""

tu mets ceci :

With Sheets("ARTICLE").Range("b65536").End(xlUp)
.Offset(0, 8).Value = UserFormArt.TextBoxP & ""
.Offset(0, 9).Value = Date
End With

si tu veux mettre la date en colonne K

 

[Geraldine]

Re : date de mise a jour

je pense que je vais pouvoir m'en sortir, merci bhbh

bonne journée,
Géraldine