XL 2013 Date automatique dans une cellule

lestoiles1 · 19 Octobre 2020

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 · 19 Octobre 2020

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 :

VB:

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 · 19 Octobre 2020

merci beaucoup, ça marche

soan · 19 Octobre 2020

Bonjour @lestoiles1, sylvanu,

Je propose le fichier Excel ci-dessous.

VB:

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

XL 2013 Date automatique dans une cellule

lestoiles1

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

lestoiles1

XLDnaute Occasionnel

soan

XLDnaute Barbatruc

Pièces jointes

Discussions similaires