Sélection avec toupie

Bonjour,

je souhaiterai obtenir le même résultat en A1 que dans le fichier joint, bien sûr sans utiliser la cellule D1 et en avoir le retour dans ma textbox .

Merci pour votre aide.

JP

Bonsoir

Je ne sais pas si c'est que tu cherches

Remplace toutes les macros dans le module de l'userform par ces deux là

Private Sub SpinButton1_Change()
  Me.TextBox1 = Format(DateAdd("m", Me.SpinButton1, Date), "mmmm yyyy")
  Sheets("Feuil1").Cells(1, "A").Value = Me.TextBox1.Value
End Sub

Private Sub UserForm_Activate()
  Me.TextBox1 = Format(Date, "mmmm yyyy")
End Sub

C'est bien le résultat attendu !

Merci encore pour ta réponse plus que rapide.

Cordialement

JP