Private Sub GROUPE_DE_JOURS_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Private Sub GROUPE_DE_JOURS_Click()
'l'idee est de garder en mémoire la couleur précédente
'si le fond n'est pas deja orange, et si le jour change :
If &H80C0FF <> GROUPE_DE_JOURS.BackColor And Mid(GROUPE_DE_JOURS.Name, 6, 3) <> ANCIEN_JOUR Then
'mettre en couleur du fond du précédent, la couleur sauvegardé
If FOND_INITIAL <> "" Then 'condition pour éviter uen mauvaise couleur à la première utilisation
AGENDA.Controls("Label" & ANCIEN_JOUR).BackColor = FOND_INITIAL
End If
'sauvegarder la couleur du fond
FOND_INITIAL = GROUPE_DE_JOURS.BackColor
ANCIEN_JOUR = Mid(GROUPE_DE_JOURS.Name, 6, 3)
End If
'mettre en couleur du fond, l'orange
GROUPE_DE_JOURS.BackColor = &H80C0FF
End Sub