Pb mise en forme "Aperçu des sauts de page" et impression

Bonjour,

Je n'ai pas de fichier à joindre. Juste une question
Lorsqu'on travaille un fichier Excel on est en mode "Normal" puis quand on veut imprimer on se met en mode "Aperçu des sauts de page" pour vérifier qu'on tient bien les pages. Parfois on oublie de mettre en mode normal et on continu à travailler en mode "Aperçu des sauts de page".

Puis avec le temps on se retrouve avec un fichier affiché en zoom 20% avec une taille de caractère à 26 au lieu de la taille 11 et des colonnes et lignes immense (par rapport à un nouveau fichier.)

Pour reprendre les fichiers et les mettre en taille standard je fais tout manuellement et c'est laborieux. Y a t-il un moyen de revenir en taille normal ? c'est à dire le zoom 100% avec une taille d'écriture à 11 et des colonnes et lignes de la bonne taille sans tout faire manuellement ?

Merci

Bonjour,

personnellement je ne me sers jamais de cette fonctionalité que je trouve ni ergonomique, ni pratique, ni belle à l'affichage.
Je préfère me contenter de l'aperçu de Imprimer.

Ceci dit, à tester :

Sub dezoom()
    Dim sh As Worksheet, shAct As Worksheet
    Set shAct = ActiveWorkbook.ActiveSheet
    Application.ScreenUpdating = False
    For Each sh In ActiveWorkbook.Worksheets
        sh.Select
        ActiveWindow.Zoom = 100
        sh.Cells.Font.Size = 11
    Next sh
    shAct.Select
End Sub

travaille sur le classeur actif. Elle peut être sur un classeur et l'utiliser sur un autre.
eric

Bonjour eric,

Merci mais à part enregistrer une macro et créer un bouton je ne suis pas du tout callé en VBA, je viens de réussir à ouvrir l'éditeur j'ai enregistré le code je ne sais ou...

j'ai créer un bouton j'ai re enregistrer le code mais ca ne fonctionne pas. j'ai un message "erreur de compilation : end sub attendu"

du coup là j'ai un fichier à joindre lol

Bonjour,

Sub Rectangle1_Cliquer()
Sub dezoom()
'...
End Sub

tu as déclaré 2 Sub pour un seul end sub, il lui en manque un.
Supprime une de deux lignes.
eric

Bonjour,

Ca fonctionne sauf pour les largeurs de colonne. J'ai des colonnes en taille 176 alors que qu'il faudrait quelle soit en largeur 60.

Peut être faut il adapter les largeur et hauteur au contenu ?

il faut choisir :

sh.Columns("A:H").ColumnWidth = 24.43 ' fixe
sh.Columns("A:H").EntireColumn.AutoFit ' auto

eric

J'ai fait ca mais ca ne fonctionne pas

Sub dezoom()
Dim sh As Worksheet, shAct As Worksheet
Set shAct = ActiveWorkbook.ActiveSheet
Application.ScreenUpdating = False
For Each sh In ActiveWorkbook.Worksheets
sh.Select
ActiveWindow.Zoom = 100
sh.Cells.Font.Size = 11
sh.Columns("A:H").EntireColumn.AutoFit ' auto
Next sh
shAct.Select

End Sub

c'est bon, c'est dans le fichier à corriger qu'il faut activer la macro (le bouton dans le fichier source ne sert à rien)

du coup le mieux c'est sh.Columns("A:H").EntireColumn.AutoFit ' auto

mais ca ne réduit pas toutes les colonnes pour s'ajuster au texte et ca ne réduit pas les lignes.

en tout cas ca fait quand meme une partie du taf donc ca aide déja :)

Si, ça réduit les colonnes A:H comme indiqué.
Fait preuve d'initiative et adapte au besoin réel que j'ignore...

Si tu veux toutes les colonnes c'est : sh.Columns.AutoFit
et toutes les lignes : sh.Rows.AutoFit

C'est bon merci a toi :)