XL 2021 Modification d'une macro qui créer des feuilles Excel et les complète

[sessef1]

Bonjour a tous,
Je me permets de vous solliciter car je n'arrive pas a trouver la solution a mon problème.
J'ai un premier tableau où la macro fonctionne très bien. Lorsque je fais fonctionner la macro, les feuilles se créer et me repartie les personnes au bon endroit par semaine et par jour.
J'ai du créer le même fichier car une modification a été faite sur l'un de nos logiciels et maintenant les informations que j'avais sur une colonne sont sur deux colonnes fusionnées et je n'arrive plus à faire fonctionner la macro.
Est ce que vous pouvez m'aider à modifier la macro sur le nouveau fichier pour que tout refonctionne comme avant.
Je vous joints l'ancien qui fonctionne et le nouveau où la macro doit être corrigée.
Le mot de passe pour la macro est 123.
Je vous remercie par avance pour votre aide

 

[sylvanu]

Bonjour Sessef,
Une PJ à tester.
Nbre de colonnes par semaine avant : 7 après : 14
Nbre de colonnes par jour avant : 1, après : 2
Donc j'ai fait les modifs suivantes :

Remplacez :
For t = 3 To f.Cells(2, Columns.Count).End(xlToLeft).Column Step 7
par
For t = 3 To f.Cells(2, Columns.Count).End(xlToLeft).Column Step 14
et remplacez :
n = n + 1
par
n = n + 2

Ca à l'air de marcher, je n'ai pas testé la véracité du résultat n'ayant pas cherché à comprendre plus avant.

 

[sessef1]

Bonjour Sylvanu,

Un grand merci a toi pour la correction du fichier.
Je vais gagner un temps de fou.