ActiveCell.Formula et choix année

Bonsoir,

Pourriez-vous m'aider à finaliser la macro ci-après? J'aimerais pouvoir insérer à l'ouverture de "l'input box" l'année de mon choix.

Je vous remercie par avance.

Sub Macro17()

Sheets("Calendrier").Select

Range("B1").Select

ANNEE = InputBox("Saisir l'année")

ActiveCell.Formula = "2017"

Sheets("Menu").Select

End Sub

Bonjour

Cette macro te permet de garder la variable ANNEE si elle est utilisée après dans la macro

Sub Macro17()
Dim ANNEE

  ANNEE = InputBox("Saisir l'année", , 2017)
  Sheets("Calendrier").Range("B1") = ANNEE
  Sheets("Menu").Select
End Sub

Celle-ci est plus simple et n'utilise aucune variable

Sub Macro17bis()
  Sheets("Calendrier").Range("B1") = InputBox("Saisir l'année", , 2017)
  Sheets("Menu").Select
End Sub

Merci BAnzaï64,

Je me suis un peu tiré les cheveux. J'avais oublié de convertir le format de la cellule. Cela marche impeccablement.

Merci beaucoup.

Bonne soirée.