Macro copie et décompte cellules sur plusieurs feuilles

Bonjour,

J'ai une macro pour basculer toutes les feuilles dans tes feuilles vides. Je ne sais pas si ça t'intéresse ?

Mais il faut d'abord supprimer la ligne 13 dans la feuille Octobre sur la source.

Attention également à redéfinir le nom du classeur source.

Sub galopin()
Dim WbS As Workbook, WbC As Workbook
Set WbS = Workbooks("planning_2012_Source.xls")
Set WbC = Workbooks(ThisWorkbook.Name)

For i =2 To 13
WbS.Worksheets(i).Range("A5:AF18").Copy
WbC.Worksheets(i).Range("A5").PasteSpecial Paste:=xlPasteValues
WbC.Worksheets(i).Range("A5").PasteSpecial Paste:=xlPasteFormats

WbS.Worksheets(i).Range("A27:AF32").Copy
WbC.Worksheets(i).Range("A29").PasteSpecial Paste:=xlPasteValues
WbC.Worksheets(i).Range("A29").PasteSpecial Paste:=xlPasteFormats

WbS.Worksheets(i).Range("A40:AF45").Copy
WbC.Worksheets(i).Range("A42").PasteSpecial Paste:=xlPasteValues
WbC.Worksheets(i).Range("A42").PasteSpecial Paste:=xlPasteFormats

Next
For i = 2 To 9
WbS.Worksheets(i).Range("A54:AF59").Copy
WbC.Worksheets(i).Range("A64").PasteSpecial Paste:=xlPasteValues
WbC.Worksheets(i).Range("A64").PasteSpecial Paste:=xlPasteFormats

WbS.Worksheets(i).Range("A61:AF66").Copy
WbC.Worksheets(i).Range("A71").PasteSpecial Paste:=xlPasteValues
WbC.Worksheets(i).Range("A71").PasteSpecial Paste:=xlPasteFormats
Next

For i = 10 To 13
WbS.Worksheets(i).Range("A53:AF58").Copy
WbC.Worksheets(i).Range("A55").PasteSpecial Paste:=xlPasteValues
WbC.Worksheets(i).Range("A55").PasteSpecial Paste:=xlPasteFormats
Next

End Sub

Après pour le découpage par pôle à toi de voir...

A+

Bonjour et merci pour ce code qui fonctionne, je vais voir comment l'adapter.

Par contre une question, pourquoi supprimer la ligne 13 de la feuille octobre? elle est vide, comme la 14. Je ne comprends pas ce qui gêne.

Bonjour,

Chez moi cette ligne est en trop, elle entraine un décalage d'une ligne vers le bas de tout le reste !

Je viens de revérifier ici :

( C'est le lien que tu a donné hier à 1h23 )

Et ce n'est pas une fausse manip de ma part : il y a bien eu un problème sur cette ligne

Du coup "PURPAN" se retrouve ligne 26 et tout le reste avec...

A+

Bonjour et merci pour toute l'aide.

J'ai réussi à m'en sortir sur la 1° partie.

Depuis le planning auquel je ne peux pas toucher, je créer un modèle en récupérant les jours et dates (4 premières lignes pour chaque mois). Ensuite, je peux sur ce modèle récupérer le planning de chaque pôle.

Voici ce que cela donne avec le planning et le modèle. La création du modèle se fait par le bouton "création du fichier modèle" sur ETP SEMAINE, la récupération du planning de chaque pôle se fait par le bouton "planning par pôle" sur la même feuille

Par contre l'étape suivante me pose problème.

Je veux compter sur la feuille EPT SEMAINE les couleurs afin de savoir combien de personnes seront présentes chaque semaine. Actuellement, j'ai mis mes formules manuellement mais ce ne sera plus bon l'année prochaine car les semaines seront décalées.

Quelqu'un a-t-il une idée pour rendre automatique ce calcul?

Un 3° fichier pour avoir le visuel de ce que je voudrais avec la formule entrée manuellement et qui sera donc à modifier tous les ans.

Merci par avance pour l'aide apportée