Leçon 30/34 du Calendrier-Pratique

Bonjour Sébastien et bonjour à tous,

J'ai suivi agréablement la formation sur Youtube sur "[EXCEL] Formation VBA avancée, du Calendrier-Pratique N° (30/34)".

Mais je cale sur cette leçon à savoir: quelle est l'instruction dans la routine "SpinButton_notes_Change()" qui permet d'avancer ou de reculer dans la page du calendrier, je loupe une instruction ou bien il manque une ligne d'instruction pour dire au "SpinButton" d'effectuer cette tâche?

Voici ci-dessous mon code "en principe" identique à la leçon Youtube. Et merci d'avance à tous pour votre réponse.

Angelo.

------------------------------

Private Sub SpinButton_notes_Change()
'date
ActiveSheet.Shapes("Rectangle 9").Select
Selection.Characters.Text = "(" & Format(SpinButton_notes.Value, "dd/mm/yyyy") & ")"
Range("A2").Select

derniere_ligne = Sheets("BD_CAL").Range("A65000").End(xlUp).Row
Date_selectionee = SpinButton_notes.Value

TextBox_notes.BackColor = &HFFFFFF
TextBox_notes.Value = ""

For ligne = 2 To derniere_ligne

If Sheets("BD_CAL").Cells(ligne, 1) = Date_selectionee Then
no_couleur = Sheets("BD_CAL").Cells(ligne, 3)

If no_couleurs = 0 Then
TextBox_notes.Interior.Color = RGB(166, 219, 111)
ElseIf no_couleur = 1 Then
TextBox_notes.Interior.Color = RGB(101, 183, 219)
ElseIf no_couleur = 2 Then
TextBox_notes.Interior.Color = RGB(219, 125, 111)
ElseIf no_couleur = 3 Then
TextBox_notes.Interior.Color = RGB(229, 223, 78)
ElseIf no_couleur = 4 Then
TextBox_notes.Interior.Color = RGB(233, 196, 59)
ElseIf no_couleur = 5 Then
TextBox_notes.Interior.Color = RGB(190, 190, 190)
ElseIf no_couleur = 6 Then
TextBox_notes.Interior.Color = RGB(255, 0, 255)
End If

TextBox_notes.Value = Sheets("BD_CAL").Cells(ligne, 4)
'
Exit For
End If
Next
End Sub