Recopie d'un format excel

majo410 Messages postés 24 Statut Membre -  
Ricky38 Messages postés 5776 Statut Contributeur -
Bonjour,


J'ai fait un planning mensuel avec une macro qui colorie les week end et jours fériés.

Or je voudrais que ce format se recopie sur des lignes en dessous et je n'arrive pas à automatiser cette recopie.
Je le fais manuellement avec la recopie de mise en forme mais j'aurais voulu l'automatiser pour ne pas avoir à refaire la manipulation chaque mois. (et oui on devient paresseux avec Excel)

Est-ce que quelqu'un aurait une idée ?

Merci

A voir également:

1 réponse

Ricky38 Messages postés 5776 Statut Contributeur 1 462
 
Salut,

pour recopier seulement le format de cellule. Exemple si tu as tes cellules A10:B15 et tu veux copier le format en A25:A30

Sub copie()
Worksheets("Feuil1").Range("A10:B15").Copy
Range("A25:B30").PasteSpecial Paste:=xlFormats
End Sub

0