Re-Bonjour Danreb,
LOL, maintenant que "sachassez"
tous les problèmes sont résolus (donc plus de questions sauf 1) avec votre nouvelle version, j'essai de comparer les codes des 2 versions pour tenter de comprendre ..... c'est pas gagné
Pour mon utilisation, j'ai vraiment apprécié la possibilité de "borner" la sélection de date : mini et maxi.
Mais voilà LOL, mes bornages mini et maxi ne sont pas les mêmes que le votre et j'ai tenté de trouver ce qu'il fallait modifier à votre code.
Par exemple, je souhaiterais :
mini = aujourd'hui -10
maxi : aujourd'hui + 91
Je pense que c'est là qu'il faudrait modifier :
'gestion du calendrier
Private Sub Arriere_Click()
M = M - 1
If M = 0 Then M = 1
TMois = MonthName(M): j1 = DateSerial(TAn, M, 1): D1 = Format(j1 - Weekday(j1, 3), "D")
Maj_Cal
End Sub
Private Sub Avant_Click()
M = M + 1
If M = 13 Then M = 1
TMois = MonthName(M): j1 = DateSerial(TAn, M, 0): D1 = Day(j1 - Weekday(j1, 3))
Maj_Cal
End Sub
Mais rien à faire, toutes mes tentatives n'ont rien donné ... pire, j'ai tout fusillé (enfin, j'avais une sauvegarde et la possibilité de recharger LOL),
Vous pourriez me dire ce qu'il faut modifier ?
Encore merci,
Amicalement,
Lionel,