Discussion :

[Aatchoum]

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

[Invité]

Bonsoir Aatchoum

Alors je vais regarder dans ma boule de cristal


Ah ben mince.. je ne vois rien

Il serait bien de joindre le fichier, non ?

A+

[Aatchoum]

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.
Developpez.xlsm

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

Merci de votre aide.

[Tête de chat]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Aatchoum]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.