Année bissextile

Bonjour,

J’ai le code ci-dessous qui me permet de copier/coller des cellules dans le tableau excel « exemple ».

Les formules spéciales correspondent à la sommes du nombre de jour dans le mois.

Les formules spéciales de décembre sont copiés puis collés sur les mois contenant 31 jours. Les formules spéciales de novembre sont copiés puis collés sur les mois contenant 30 jours. Par contre pour février qui contient 28 jours les années normales et 29 jours les années bissextiles je ne sais pas comment faire car je n’ai pas d’exemple d’autres mois à copier. Du coup il faudrait que la somme du mois de février prennent la plage de la ligne 40 à 67 les années normales et de 40 à 68 les années bissextiles. Mais je ne sais pas comment ajouter cela à la macro ?

Pouvez vous m’aider svp??

Merci d’avance à celui qui pourra m’éclairer

Sub CopieDonnees()
Application.DisplayAlerts = False
Range("C353:BV383").Copy Range("C8:BW38")
Range("C353:BV383").Copy Range("C40:BW67")
Range("C353:BV383").Copy Range("C69:BW99")
Range("C353:BV383").Copy Range("C101:BW130")
Range("C353:BV383").Copy Range("C132:BW162")
Range("C353:BV383").Copy Range("C164:BW193")
Range("C353:BV383").Copy Range("C195:BW225")
Range("C353:BV383").Copy Range("C227:BW257")
Range("C353:BV383").Copy Range("C259:BW289")
Range("C353:BV383").Copy Range("C290:BW320")
Range("C384:BV384").Copy Range("C321:BW321")
Range("C384:BV384").Copy Range("C258:BW258")
Range("C384:BV384").Copy Range("C226:BW226")
Range("C384:BV384").Copy Range("C163:BW163")
Range("C384:BV384").Copy Range("C100:BW100")
Range("C384:BV384").Copy Range("C39:BW39")
Range("C352:BV384").Copy Range("C289:BW289")
Range("C352:BV384").Copy Range("C194:BW194")
Range("C352:BV384").Copy Range("C131:BW131")
Application.DisplayAlerts = True
End Sub

Bonjour

Et si tu joignais ton fichier ? Ce serait peut-être plus clair ...

Bye !

Bonjour,

Tout d’abord, merci pour ta réponse

Ci-dessous les fichiers :

8exemple.xlsm (106.61 Ko)

Bonjour POPotte56

2 choses sur ce forum :

1) il faudrait peut-être répondre aux questions que l'on vous pose
https://forum.excel-pratique.com/excel/copier-coller-specifique-165070

2) Déjà dit il me semble merci de mettre votre code entre balises avec le bouton </> situé en haut
La prochaine fois je supprime purement et simplement le post, vous être prévenu

Merci de bien vouloir respecter la charte du forum SVP

Rechercher des sujets similaires à "annee bissextile"