Problème de date

Bonjour à tous et à toutes,

Je suis en train de faire un bulletin d'appel qui reconnait automatiquement le nombre de jour dans le mois en cours et qui les retranscrit sur la ligne 2.

1/ J'ai défini le format dd/mm/aaaa sur la ligne 2. Problème car du 1 jusqu'au 12, il inverse le jour et le mois --> mm/dd/aaaa

puis à partir du 13, il inscrit correctement les dates --> dd/mm/aaaa.

2/ Je dois positionner le curseur sur la cellule contenant la date du jour.

J'essaye de différentes manières mais soit ça marche à moitié soit pas du tout.

J'ai grand besoin d'aide s'il vous plaît?

En pièce jointe le modèle du bulletin d'appel.

Merci d'avance.

Bonjour,

Pour fin de mois

fin_mois = Format(DateSerial(Year(Date), Month(Date) + 1, 0), "dd/mm/yyyy")

Pour le problème de date

For col = 4 + I To 4 + nb_jour
    date_q = CDate(I & "/" & mois & "/" & annee)
        Cells(2, col) = date_q
        I = I + 1
Next col

Cdlt

Merci beaucoup ça fonctionne très bien.