XL 2016 changement années sur fichier VBA

[jlzcaps238]

Bonjour,

Qqn pour m'aider sur du VBA en changeant l'année ?.

Sur la feuille "MODELE" il y a un logo en I2

quand l'on clique dessus, on peut changer le mois en cliquant une valeur numérique entre 1 (janvier) et 12 (décembre). Et je souhaiterais que lorsque j'indique la valeur 1, ca tombe directement sur 2017.

Merci à vous pour vos réponses

 

[Chris401]

Bonsoir
Remplace le code dans la Sub Creation

Sub Creation()
Dim NbJ As Long
Dim i As Byte
Dim Mois, LaDate
Call Efface
Mois = InputBox("Saisir numéro du mois (1 à 12)")
LaDate = DateValue("1/" & Mois & "/" & 2017)
NbJ = Day(DateAdd("d", -1, DateAdd("m", 1, DateSerial(2017, Mois, 1))))
Application.ScreenUpdating = 0
For i = 1 To NbJ
Sheets("Modèle").Copy After:=Sheets(i)
    ActiveSheet.Name = Format(DateValue(i & "/" & Format(LaDate, "mm/yy")), "dd_mm_yyyy")
    ActiveSheet.Range("A1") = Format(DateValue(i & "/" & Format(LaDate, "mm/yy")), "dddd dd mmmm yyyy")
    ActiveSheet.Shapes("Logo_Code").Delete
Next i
Sheets("Modèle").Activate
End Sub