Discussion :

[BenoitL77]

Bonjour,
Je recopie cette discussion dans le forum Excel/conception car je l'avais mise hier directement sous Excel.

Pour générer un devis, j'ai fait un fichier excel.
Il se décompose en 5-6 blocs différents:
Un bloc de x lignes pour les équipements, un bloc de x lignes pour les options, un bloc de x lignes pour les conditions de paiements... etc
Bien évidemment, le nb de ligne dans ces blocs varie en fonction de l'offre. Et souvent mon offre ne tient pas sur une seule page.
J'aimerai paramétrer les sauts de page pour que les blocs de ligne ne soient pas coupés en 2, mais restent en entier soit sur la page 1 soit sur la 2. Si la dernière ligne d'un bloc est poussé sur la page 2, alors c'est tout le bloc qui passe.
L'objectif étant la lisibilité du doc excel et du pdf que je génère ensuite.

A savoir :
Je constitue mon offre grâce à une macro qui ajoute des lignes
J'ai des repères (des lettres) dans la colonne A (masquée) qui me permettent de repérer le début de chaque bloc
Je n'aurai pas plus de 2 pages

Rien trouvé sur ce forum et pas grand chose de concluant sur le net.
Merci d'avance pour vos retours et pistes.

Benoit

[EricDgn]

Bonjour,

Une façon de faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub BlocPage()
    Dim kR As Long
    ActiveSheet.ResetAllPageBreaks
    For kR = 2 To 200
        If Rows(kR).PageBreak <> xlPageBreakNone Then
            '--- saut de page détecté
            Do
                '--- remonte jusqu'à trouver marque en colonne 1
                If Cells(kR, 1) = "" Then
                    kR = kR - 1
                Else
                    Rows(kR).PageBreak = xlPageBreakManual
                    kR = kR + 1
                    Exit Do
                End If
            Loop
        End If
    Next kR
End Sub

Bonne continuation.

[BenoitL77]

Bonjour Eric,
Merci pour ton retour.
Si je comprend bien :
il supprime tous les sauts de page existants
il descend toutes les lignes de 2 à 200 jusqu'à trouver un saut de page.
Une fois trouvé, il remonte jusqu'à trouver qque chose en colonne A (càd le début du bloc qui c'est fait coupé en 2)
Et là, il ajoute un saut

ça m'a l'air au top, je testerais demain.
Je te tiens au courant.

Cordialement
Benoit

[EricDgn]

Oui, c'est cela.
Pour gagner quelques millisecondes,
- s'il est certain qu'il y a toujours au moins X cellules sur la page 1, on peut indiquer
For kR = X to 200
- s'il est certain qu'il n'y aura jamais que 2 pages, on peut remplacer le Exit Do par Exit Sub.
Cordialement.

[BenoitL77]

Bonjour,
Impeccable !

J'ai mis un moment à comprendre qu'il y avait une zone d'impression de définie (faite par mon prédécesseur) qui faisait tourner en rond la macro entre la ligne 39 et 46....

Mais une fois cet écueil franchi, c'est du bonheur.

Merci à toi