Ajuster une colonne en fonction de la largeur de la page

Bonjour a tous,

Je voudrais savoir si c’était possible d'ajuster la largeur d'une colonne en fonction de la taille de la feuille.

Sur une feuille, je voudrais que Excel diminue la largeur de la colonne E automatiquement de manière a ce que ma page tienne en largeur. Les autres colonnes sont en Autofit et la moins importante est la E.

La commande .EntireColumn.AutoFit ajuste la largeur de la colonne en fonction de son contenue.

Pour le moment, j'ai mis Columns("E:E").EntireColumn.ColumnWidth = 7.86

Mais avec d'autre données ce n'est pas optimal.

Est ce possible ?

Merci beaucoup pour vos reponses.

Bonjour,

Sur la feuille en question ... supposons 6 colonnes ...

Une fois les marges ajustées afin que l'impression convienne ... (voir aperçue avant impression et tests)

On récupère la somme des colonnes .... la macro1 ne servira plus pour l'instant

Sub Macro1()
Dim X As Integer
With Sheets("Feuil1")  ' à adapter
   X = 0
   X = X + .Range("A:A").ColumnWidth
   X = X + .Range("B:B").ColumnWidth
   X = X + .Range("C:C").ColumnWidth
   X = X + .Range("D:D").ColumnWidth
   X = X + .Range("E:E").ColumnWidth
   X = X + .Range("F:F").ColumnWidth
End With
Msgbox X  
End Sub

Supposons que la somme (X) donne 84

Puis ceci ajustera la colonne E ...

Sub AjusteE()
'
Dim X As Integer
Dim y As Integer
With Sheets("Feuil1")
   X = 0
   X = X + .Range("A:A").ColumnWidth
   X = X + .Range("B:B").ColumnWidth
   X = X + .Range("C:C").ColumnWidth
   X = X + .Range("D:D").ColumnWidth  'remarque ... il n'y a pas de colonne E
    X = X + .Range("F:F").ColumnWidth
   y = 84 - X
   .Columns("E:E").ColumnWidth = y
End With
End Sub

Il restera éventuellement qu'à gérer une colonne E plus petite que la valeur souhaitée.

Gelinotte

Merci Gelinotte

Bonne nuit !