XL 2013 Date automatique dans une cellule

[lestoiles1]

Bonjour à tous,

Comment faire:
Lorsque j'écris quelque chose dans la cellule A1, la date d'aujourd'hui s'écrive automatiquement dans la cellule b1.
Lorsque j'écris quelque chose dans la cellule A2, la date d'aujourd'hui s'écrive automatiquement dans la cellule b2.
Et ainsi de suite
Merci

 

[sylvanu]

Bonjour Lestoiles,
Si on met une formule en B1 alors elle sera ré évaluée à chaque fois et le jour changera demain.
Alors en PJ un essai avec un Worksheet_Change où la date s'écrit en dur :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
        If Target = "" Then
            Cells(Target.Row, 1 + Target.Column) = ""
        Else
            Cells(Target.Row, 1 + Target.Column) = Date
        End If
    End If
End Sub

 

[lestoiles1]

merci beaucoup, ça marche

 

[soan]

Bonjour @lestoiles1, sylvanu,

Je propose le fichier Excel ci-dessous.

Sub Worksheet_Change(ByVal Target As Range)
  Dim vx
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Column > 1 Then Exit Sub
    vx = .Value
    With .Offset(, 1)
      If vx = "" Then .ClearContents Else .Value = Date
    End With
  End With
End Sub

soan