Code fonctionne avec correctement seulement avec un point d'arrêt ou pas à pas

Bonjour à tous,
Je n'ai pas trouvé de sujet similaire avec la recherche avancé.
Pour vous donner un peux de contexte mon fichier excel utilise plusieurs module dans un soucis de clarté.
Dans un de ces modules, j'ai une Sub qui appel différente sub via Call ModuleX.SubY qui ne pose pas de problème particulier hormis une.

Cette sub vas parcourir l'ensemble des feuilles du classeur et si le nom de la feuille commence par "Pal" alors il y a un compte du nombre de page à imprimer selon la pagination défini (Worksheet.PageSetup.Pages.Count).
Si ce nombre de page est paire alors une nouvelle feuille sera crée avec le nom "Pal0"& X.

Cette sub s'exécute bien lors d'un pas à pas.
Pour voir si cela venait de la vitesse d'exécution du code j'ai donc réintégré ce code dans la Sub "mére" et là cela fonctionne avec le point d'arrêt juste avant ou en pas à pas.

Dans le cas où je déroule l'ensemble du code en une seul fois cette parti ne fonctionne pas, comme si le code aller trop vite pour son exécution.

Ma question est comment faire pour être sûr que cette parti soit bien réalisé ?

Merci de votre aide

Bonsoir Aatchoum

Alors je vais regarder dans ma boule de cristal
Pièce jointe 636191

Ah ben mince.. je ne vois rien

Il serait bien de joindre le fichier, non ?

A+

Bonjour,
J'ai un peu tarder à répondre, mon fichier devait être contrôler par mes tuteurs avant que je puisse le poster :).
Mon code n'est pas beau et il est largement optimisable.

La partie qui me bloque actuellement est sur le module ad_AnnexeTri et la Sub PiedPage() dans la quelle j'utilise Call ad_AnnexeTri.AddExtraPage_V2 et dans un second temps j'ai intégrer ce code appeler directement dans la Sub.
Pièce jointe 637552

Si vous avez besoin d'explication supplémentaire n'hésité surtout pas, je serais beaucoup plus réactif :D.

Merci de votre aide.

Bonjour,

je ne sais pas si c'est la source de tes ennuis mais je vois un truc qui me choque :

Code:

---

1 2 3 4 5 6 7 8 9

For Each Feuille In ThisWorkbook.Sheets ... If nbPages > 2 And nbPages Mod 2 <> 0 And Feuille.Index <> ThisWorkbook.Sheets.Count Then ... ThisWorkbook.Sheets.Add(After:=Feuille).Name = "Pal0" & z ... End If ... ' Next Feuille

---

Perso je ne m'amuserais pas à ajouter des items dans une collection que je suis en train de parcourir...

Bonjour, effectivement ma difficulté venais de l'ajout de feuille dans la collection.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim nbPages As Integer Dim nbPal As Integer Dim j As Integer   nbPal = Worksheets("Information").Cells(Rows.Count, "J").End(xlUp).Row - 2 nbPages = Worksheets("Pal1").PageSetup.Pages.Count   If nbPages > 2 And nbPages Mod 2 = 0 Then For j = 1 To nbPal Worksheets.Add(After:=Worksheets("Pal" & j)).Name = "Pal0" & j ThisWorkbook.Sheets("Pal0" & j).Cells(2, 2).Value = "Page vierge" ThisWorkbook.Sheets("Pal0" & j).Cells(2, 2).Font.Color = vbWhite Next j End If

---

Un grand merci pour l'aide.