RESOLU : Mise en page Excel

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pierre le grand

XLDnaute Nouveau
🙂Bonjour à tous,

il est difficile de trouver de la documentation dès lors que l'on entre dans les spécificités d'Excel

Mon problème : mise en page d'une feuille pour impression par l'utilisateur 😕

J'ai bien réussi à générer des sauts de page pour l'impression d'une feuille mais je ne sais comment (toujours en VBA) déplacer le nombre de colonnes qui doit apparaître dans une page.

Ex. ActiveSheet.BPageBreaks .........

Remerciements et cordiales salutations.
 
Dernière édition:
Re : Mise en page Excel

Salut,

Oui, c'est la première chose que j'ai faite, mais hèlas, je ne peux transposer le code dans mon module (cela ne fonctionne pas si je veux rendre cela dynamique.

Code:
[COLOR="blue"]ActiveSheet .VPageBreaks(1).Dragoff Direction:=xlToRight, RegionIndex:=1[/COLOR]

Merci pour ta contribution.

A++
 
Dernière édition:
Re : Mise en page Excel

Salut ,

C'est cela en partie, je suppose qu'avant de saisir cette ligne, il faut se positionner sur la feuille correspondante (OK c'est bon).

Cependant, j'ai vu qu'il me positionnait en automatique des saut de page horizontaux et verticaux que je souhaite supprimer. Peut-on les supprimer ?

Encore merci
 
Re : Mise en page Excel

Re,
VB:
Public Sub test()
' Supprime les sauts de page 
    With Worksheets(1)
        Do While .VPageBreaks.Count > 0
            On Error Resume Next
            .VPageBreaks(1).DragOff xlToRight, 1
        Loop
        Do While .HPageBreaks.Count > 0
            On Error Resume Next
            .HPageBreaks(1).DragOff xlDown, 1
        Loop
    End With
End Sub
A+
 
Dernière édition:
Re : Mise en page Excel

Bonjour,

Le test a été fait et le code étant le suivant

Code:
   With Worksheets(maFeuille)
        Do While .VPageBreaks.Count > 0
            On Error Resume Next
            .VPageBreaks(maFeuille).DragOff xlToRight, 1
        Loop
   end with

Il semble qu'il n'y est pas de décrementation de .VPageBreaks.Count ... conséquence, une boucle sans fin ...... ai-je raté quelque chose ?

A++ et encore merci
 
Dernière édition:
Re : RESOLU : Mise en page Excel

Re,

Bien que non visuel au moment de l'exécution, il s'avére qu'au moment de l'impression cela fonctionne mais la boucle n'est pas utile.

Worksheets(maFeuille).VPageBreaks(maFeuille).DragOff xlToRight, 1 demeure suffisant

Remerciements à tous.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
872
Retour