Centrer tableau Excel

Bonjour,

C'est peut-être complètement bête comme question mais est-ce qu'il y a un moyen de centrer son tableau Excel au milieu de la page sans être obligé de regarder la largeur de chaque colonnes ? Sans devoir toucher manuellement la largeur de la colonne A mais en arrivant vraiment au pixel près à ce que le tableau soit au milieu.

En gros passer de ca :

A ca

Merci d'avance !

Bonjour,

Pas besoin de toucher aux colonnes il suffit de centrer ton tableau dans la mise en page - marges - centrer sur la page horizontalement et verticalement

Oups c'est pour l'impression ca...

Désolée

Christelle

Bonjour,

Pour suivre un peu ton fichier, les tableaux que tu souhaites centrer (a ma connaissance) ne pourront pas l'etre sans toucher a la largeur des colonnes
(Avec des userform on peux mais il faudrait pratiquement reprendre ton fichier de zero).

Par contre, si tu souhaites qu'entre chaque onglet, le tableau soit positionné au pixel pres, il y a moyen de forcer la largeur des colonnes sur tout tes onglets.
Tu creer un nouveau module dans en VBA, et colle le code en dessous.

Sub Mise_En_Forme()
Application.EnableEvents = False
  Dim i As Integer
  For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Accueil" Then
        With Sheets(i)
            .Visible = True
            .Activate
            .Unprotect Password:="1234"         'Retire le mdp des onglets
            .Columns("A:A").ColumnWidth = 45    'Largeur colonne A
            .Columns("B:B").ColumnWidth = 40    'Largeur colonne B
            .Columns("C:C").ColumnWidth = 10    'Largeur colonne C
            .Columns("D:D").ColumnWidth = 10    'Largeur colonne D
            .Rows("1:1000").EntireRow.AutoFit   'Hauteur des ligne 1 a 1000 en auto
            .Shapes.Range(Array("Picture 2")).Top = Range("A1")     'Positionner l'image Accueil en hauteur
            .Shapes.Range(Array("Picture 2")).Left = Range("A1")    'Positionner l'image Accueil en largeur
            .Protect Password:="1234"           'Remet le mdp des onglets
            .Visible = False
        End With
    End If
  Next
Application.EnableEvents = True
End Sub

Traduction de la macro =>

1 - On met en pause les evenements qui pourrait nous embeter (du style "si tu ne selectionne pas la colonne 3 ou 4 ..." que tu as sur chaque onglet)

2 - Pour chaque onglets sauf "Accueil", Rend visible l'onglet, l'active, le deverrouille, force la largeur des colonnes A B C D, force la hauteur des lignes en auto.

3 - IMPORTANT = > Picture 2 correspond a l'image de maison mais pas sur tout tes onglets .
Commence par renommer l'image de chaque onglet avec le meme nom du style "ImageAccueil" et tu remplace "Picture 2" dans la macro par le nom choisi.

4 - Top et Left déplace l'image sur la cellule qui suit (dans l'exemple de la macro ça correspond a la cellule "A1")

Info : Tu pourras également utiliser ces étapes (avec Top et Left) pour forcer ton filigramme (apres l'avoir nommé).

5 - On reverrouille l'onglet, le masque et on passe au suivant.

6 - Tout les onglets ont été "Mise_En_Forme", on stop la pause des evenements.

Ne lance pas cette macro avant d'avoir fait l'étape importante et modifie le mot de passe si necessaire "1234"

A+