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