Date de remplissage

Bonjour Yakin,

tu pourrais essayer cette formule en B1 : =SI(A1<>"";AUJOURDHUI();"") ➯ 08/09/2023

mais ça ne marcherait pas, car demain, même sans avoir changé A1, ça mettra 09/09/2023
à la place de 08/09/2023 ➯ la date 08/09/2023 sera perdue ; c'est pourquoi c'est obligatoire
de passer par un code VBA, qui va écrire la date « en dur » (donc sans mettre de formule) ;
ainsi, les jours suivants : la date ne sera pas modifiée automatiquement (sauf si tu fais
une nouvelle saisie en A1).

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

voici donc une solution avec code VBA, dans ce fichier : https://www.cjoint.com/c/MIiqJO03g80

* saisis quelque chose en A1, par exemple x ➯ en B1 : 08/09/2023 ; idem à des dates différentes :
demain : en A1 : y ➯ en B1 : 09/09/2023 ; après-demain : en A1 : z ➯ en B1 : 10/09/2023 ; etc... ;
cette fois, la date en B1 changera uniquement si tu modifies A1 (saisie d'une valeur).

* en A1 : efface ce que tu as saisi avec la touche Suppression ➯ en B1 : cellule vide.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

code VBA du module de Feuil1 (7 lignes) :

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address = "$A$1" Then _
      .Offset(, 1) = IIf(.Value <> "", Date, "")
  End With
End Sub

rhodo