XL 2021 Macro pour inscrire la date du jour

[fd.30]

Bonjour,

besoin d'aide SVP pour établir une macro permettant d'inscrire la date du jour dans la 1ère cellule vide de la colonne B et ainsi de suite.

Voir PJ
merci beaucoup

 

[Dranreb]

Bonsoir.
L'instruction qui renseigne la cellule voulue c'est :

ActiveSheet.[B1000000].End(xlUp).Offset(1).Value = Date

 

[TooFatBoy]

Bonjour,

Proposition :

Sub EcrireDate()
    ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Offset(-(ActiveSheet.Cells(1, 2) <> "")).Value = Date
End Sub

 

[fd.30]

Bonjour,
Merci Bernard, merci TooFatBoy, les deux solutions fonctionnent. Merci de votre aide.