Copier plusieurs feuilles sur 1 feuille

bonjour à tous:

j'ai un planning annuel qui comporte 12 onglets (janvier à décembre) j'aimerais copier une plage de cellules sur un onglet général (planning) afin d'avoir une vue plus générale.

j'essaie de copie ces plages avec ce code:

Sheets("Janvier").Range("F11:F202").Copy Sheets("Planning").Range("F11")

Sheets("Janvier").Range("AU11:BY202").Copy Sheets("Planning").Range("G11")

Sheets("Février").Range("F11:F202").Copy Sheets("Planning").Range("AL11")

Sheets("Février").Range("AU11:BY202").Copy Sheets("Planning").Range("AM11")

Sheets("Mars").Range("F11:F202").Copy Sheets("Planning").Range("BP11")

Sheets("Mars").Range("AU11:BY202").Copy Sheets("Planning").Range("BQ11")

le but de cet onglet est de lire des information et non de modifier, donc j'effectue une remise à zéro en début de code par:

Worksheets("Planning").Activate

Worksheets("Planning").Range("F11:DD200").Select

Worksheets("Planning").Range("F11:DD200").Clear

mon problème est que sur certain onglet ne n'arrive pas a obtenir le fond (couleurs) des onglets (janvier-décembre)

mon problème vient des MFC des onglets (janvier-décembre)

comme je peux supprimer ces MFC lors de la copie des plages de cellules?

merci d'avance pour tout

respectueusement

jerome

Bonjour

Essaie ce code :

Sheets("Janvier").Range("F11:F202").Copy
Sheets("Planning").Range("F11").PasteSpecial xlPasteValues
Sheets("Janvier").Range("AU11:BY202").Copy
Sheets("Planning").Range("G11").PasteSpecial xlPasteValues
Sheets("Février").Range("F11:F202").Copy
Sheets("Planning").Range("AL11").PasteSpecial xlPasteValues
Sheets("Février").Range("AU11:BY202").Copy
Sheets("Planning").Range("AM11").PasteSpecial xlPasteValues
Sheets("Mars").Range("F11:F202").Copy
Sheets("Planning").Range("BP11").PasteSpecial xlPasteValues
Sheets("Mars").Range("AU11:BY202").Copy
Sheets("Planning").Range("BQ11").PasteSpecial xlPasteValues

'le but de cet onglet est de lire des information et non de modifier, donc j'effectue une remise à zéro en début de code par:
Worksheets("Planning").Activate
Worksheets("Planning").Range("F11:DD200").Clear

Bye !

bonjour,

merci pour cette réponse,

mon problème est que ce code ne récupère pas la couleur des cellules?

comme je peux faire pour le rajouter au code que tu ma donné

encore d'avance

merci

Bonjour

jeromeB a écrit :

mon problème est que ce code ne récupère pas la couleur des cellules?

Comme ça :

Sheets("Janvier").Range("F11:F202").Copy
Sheets("Planning").Range("F11").PasteSpecial xlPasteValues
Sheets("Planning").Range("F11").PasteSpecial xlPasteFormats
Sheets("Janvier").Range("AU11:BY202").Copy
Sheets("Planning").Range("G11").PasteSpecial xlPasteValues
Sheets("Planning").Range("G11").PasteSpecial xlPasteFormats
Sheets("Février").Range("F11:F202").Copy
Sheets("Planning").Range("AL11").PasteSpecial xlPasteValues
Sheets("Planning").Range("AL11").PasteSpecial xlPasteFormats
Sheets("Février").Range("AU11:BY202").Copy
Sheets("Planning").Range("AM11").PasteSpecial xlPasteValues
Sheets("Planning").Range("AM11").PasteSpecial xlPasteFormats
Sheets("Mars").Range("F11:F202").Copy
Sheets("Planning").Range("BP11").PasteSpecial xlPasteValues
Sheets("Planning").Range("BP11").PasteSpecial xlPasteFormats
Sheets("Mars").Range("AU11:BY202").Copy
Sheets("Planning").Range("BQ11").PasteSpecial xlPasteValues
Sheets("Planning").Range("BQ11").PasteSpecial xlPasteFormats

'le but de cet onglet est de lire des information et non de modifier, donc j'effectue une remise à zéro en début de code par:
Worksheets("Planning").Activate
Worksheets("Planning").Range("F11:DD200").Clear

OK ?

Bye !

merci pour cette réponse et le temps pour cette réponse