Figer les dates

[Jean-Baptiste]

Bonjour,

je suis à la recherche d'une macro qui me permet d'indiquer une date dans une cellule lorsque j'ecris une données dans une cellule de la même ligne. De plus, je souhaite que cette date reste figée c'est à dire que lorsque j'ouvre de nouveau le fichier, la date ne change pas.

Merci pour votre aide!
JB

 

[Lord Nelson]

Salut JB,

Peux-tu préciser les colonnes de saisie et la colonne des dates s'il-te-plaît ?

A+
Horatio

 

[tatiak]

Bonjour,
La macro suivante place la date et l'heure du jour dans la première cellule de la colonne modifiée d'un feuille. Macro à placer dans le code de la feuille correspondante.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim col As String
col = Mid(Target.Address, 2, InStr(2, Target.Address, "$") - 2)
Range(col & "1") = Now()
End Sub

 

[tatiak]

Oups, j'avais mal lu!
Pour placer la date en colonne A après changement d'une cellule de la même ligne, utilise plutôt la macro suivante :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Range("A" & Target.Row) = Now()
End Sub

 

[Jean-Baptiste]

Merci pour vos réponses et bonnes fêtes.
JB