Dater une cellule

[nico3869]

Bonsoir à tous.

Tout d'abord un grand merci pour toutes ces infos très utiles et pratiques
Je recherche une fonction premettant de dater automatiquement une cellule lors de la saisie d'une autre

par exemple, aujourd'hui je saisie en A2 un montant, je souhaiterai avoir en A3 la date d'aujourd'hui. En revanche, une fois cette date affichée, je souhaite la garder.

Merci d'avance

 

[abc]

Re : Dater une cellule

Bonsoir,
essaie et dit quoi.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'écrit dans la colonne A
Target.Offset(0, 1) = Date 'alors mets la date du jour dans la colonne a coté
End If

End Sub
A +

 

[CB60]

Re : Dater une cellule

Bonsoir
Tu peux faire ça aussi , mettre en commentaire date et heure

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'écrit dans la colonne A
Target.AddComment 'ajoute le commentaire
Target.Comment.Text Text:=" '" & Now
End If
End Sub

 

[nico3869]

Re : Dater une cellule

Je ne sais pas me servir des macros.
Merci de me préciser la manip pour rentrer cette action

 

[abc]

Re : Dater une cellule

Bonsoir,
tu clic sur ALT + F11
puis un copier coller du code que je t'ai proposé où celui de CB60
et le tour est joué.
Au besoin resonne et je te ferai un copie avec le tout.
A +

 

[abcd]

Re : Dater une cellule

Bonsoir,

Tu peux aussi le faire par une référence circulaire.

Menu Outils / Options / Calcul / cocher Itérations.
B1 : =SI(A1="";"";SI(B1<>"";B1;AUJOURDHUI()))
Tape une valeur en A1, la date s'affiche en B1 et reste figée jusqu'au moment ou tu effaces la valeur en A1.
Modifier la valeur en A1 ne modifie pas la date en B1.

Petit conseil : remplace AUJOURDHUI() par MAINTENANT(), ainsi pour tester tu ne devras pas attendre demain (lol).

abcd

 

[nico3869]

Re : Dater une cellule

merci beaucoup