Date du jour dans cellule

Bonjour,

J'ai fait cette courte macro pour pouvoir inscrire la date de la veille dans une cellule quelconque active :

Private Sub CommandButton3_Click()
ActiveCell.Value = Now - 1
NumberFormat = "dd/mm/yyyy"
End Sub

Je pensais qu'en mettant "dd/mm/yyyy" en numberFormat alors j'aurais ce format dans la cellule. Hors le format dans la cellule est "dd/mm/yyyy hh:min:sec".

Je pense que c'est dû au mot "Now"...

Avez-vous une idée pour que j'ai uniquement la date dans la cellule active ?

Merci d'avance.

Bonjour,

Effectivement, remplacez Now par Date, qui retourne la date actuelle.

ActiveCell.Value = Now - 1

Par

ActiveCell.Value = Date - 1

Super, merci. Je n'y avait pas pensé.

Bonne journée.

J'ai juste une question supplémentaire : si je veux que la date se mette dans une sélection de plusieurs cellules, quel serait le code ?

Vous pouvez faire comme ceci :

  With Range("A1:A3")
    .Value2 = Date - 1
    .NumberFormat = "dd/mm/yyyy"
  End With

Si vous partez d'une sélection de l'utilisateur, Remplacez Range("A1:A3") par Selection.

  With Selection
    .Value2 = Date - 1
    .NumberFormat = "dd/mm/yyyy"
  End With

Encore merci, ça fonctionne parfaitement.