XL 2016 AJUSTER LARGEUR COLONNE AU CONTENU

Victor21

XLDnaute Barbatruc

• 21 Septembre 2019

• #2

Bonjour.

Google est votre ami :
Worksheets("Sheet1").Columns("A:I").AutoFit
Pour la feuille "Sheet1" et les colonnes de A à I.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 21 Septembre 2019

• #3

Bonjour à tous, Bise à Patrick

Ou sélection des colonnes A à I et double clic sur la limite entre 2 lettres de colonnes au choix dans la sélection...

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 21 Septembre 2019

• #4

Victor21 à dit:

Bonjour.

Google est votre ami :
Worksheets("Sheet1").Columns("A:I").AutoFit
Pour la feuille "Sheet1" et les colonnes de A à I.

Cliquez pour agrandir...

Grand merci
Mais comment maintenir la largeur minimum a 12 ?

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 21 Septembre 2019

• #5

Bonsoir le forum
Bonsoir KTM, salut Victor21 & chris

@KTM : David (le modérateur et créateur du site) n'aime que l'on "crie" sur son forum. En effet, un texte en majuscule est synonyme de parler très fort et David a les oreilles sensibles tout comme nous.
Bon ouikand à toutes & à tous
@+ Eric c

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Septembre 2019

• #6

Bonsoir KTM, Patrick, chris, Eric C,

KTM à dit:

Mais comment maintenir la largeur minimum a 12 ?

Cliquez pour agrandir...

VB:

Sub LargeurColonnes()
Dim col As Range
Application.ScreenUpdating = False
For Each col In  Columns("A:M")
    col.AutoFit
    If col.ColumnWidth < 12 Then col.ColumnWidth = 12
Next
End Sub

A+

 

Vote positif 0 Vote négatif