XL 2016 AJUSTER LARGEUR COLONNE AU CONTENU

[KTM]

BONSOIR CHERS TOUS
jai une plage de données allant de la colonne A à M
Je voudrais un code pour ajuster le contenu des colonnes si la largeur des données dépasse 12.
Merci

 

[Victor21]

Bonjour.

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

 

[chris]

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

 

[KTM]

Bonjour.

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

Grand merci
Mais comment maintenir la largeur minimum a 12 ?

 

[Eric C]

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

 

[job75]

Bonsoir KTM, Patrick, chris, Eric C,

Mais comment maintenir la largeur minimum a 12 ?

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+