RESOLU : Mise en page Excel

[pierre le grand]

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

 

[Hippolite]

Re : Mise en page Excel

Bonjour,
As-tu essayé d'utiliser l'enregistreur de macro ?
A+

 

[pierre le grand]

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.

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

Merci pour ta contribution.

A++

 

[Hippolite]

Re : Mise en page Excel

Re,
Pour créer un saut de page entre les colonnes C et D :

ActiveSheet.VPageBreaks.Add Range("D1")

Précise ton besoin si ce n'est pas ça que tu veux.
A+

 

[pierre le grand]

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

 

[Hippolite]

Re : Mise en page Excel

Re,

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+

 

[pierre le grand]

Re : Mise en page Excel

Salut ,

J'ai bien compris ta réponse que je mettrai en application dès la semaine prochaine car je suis en week-end pour trois jours (vive les RTT).

Je ferai part de mes commentaires alors.

A++ et merci

 

[pierre le grand]

Re : Mise en page Excel

Bonjour,

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

   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

 

[pierre le grand]

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.