Bonjour leakim,
Déjà met Dim i as Long, la fonction n'aime pas Integer, je ne sais pas pourquoi il ne converti pas tout seul.
En plus ça ne sert à rien. Ca fait perdre du temps au lieu d'en gagner, vba converti toujours les entiers en Long.
Le principe, une simple boucle :
Dim dateReserv as Date
If Me.OpB_allmonth = True Then
For i = 0 To ComboBox_month.ListIndex
dateReserv = moisSuivantMmJS(ladate, i)
'réserver la date fournie par moisSuivant()
' je ne sais pas quel code
' ...
Next i
Par contre ladate que je supposais être celle sélectionnée sur le calendrier est le 1er du mois (?). Mettre la bonne date.
Et contrôler que ComboBox_month ait bien été sélectionné si OpB_allmonth = True sinon on ne passe pas dans la boucle.
eric
PS: je viens de lire un peu plus bas ton code.
Il faudrait que tu ressortes dans une autre procédure le contrôle et la réservation d'une date pour pouvoir l'appeler à plusieurs reprise.
eric