Bonsoir,

Je possède un fichier avec plusieurs onglets. Le premier est le masque qui sera repris pour chaque création de nouvelle page ( 1 par mois nommée de janvier à décembre).
Le masque est rempli grâce à un onglet nommé "calcul". L'objectif est de reconnaître tous les lundis de chaque mois, et d'y insérer des temps de fonctionnement et de production. La macro fonctionne très bien pour les mois de janvier à novembre mais pas pour décembre. Ci-dessous l'erreur affichée:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
'recherche des lundi pour un mois donne'
    Zdate = Trim(ActiveCell.Value)
    Do Until Month(Zdate) = ZNumdumois + 1 And Weekday(Zdate) = 2
    ActiveCell.Offset(1, 0).Select
    Zdate = Trim(ActiveCell.Value)
    Loop

Du coup je n'ai aucunes valeurs pour décembre. Quelqu'un pourrait-il m'aider?
Merci