largeur colonnes automatique

[michel2000]

Bonjour le Forum,

Pour faire en sorte que la largeur de toutes les colonnes d'une feuille s'ajustent à ce qu'on inscrit je crois que c'est::" Selection.Columns.AutoFit "

Mais, ah toujours ce mais", si je veux que cet ajustement s'applique au classeur entier, que faire?

Inscrire "Selection.Columns.AutoFit " dans ThisWorkBook " ?

Merci de votre attention et bonne journée
Michel

 

[mromain]

Re : largeur colonnes automatique

bonjour,

à tester :
For each ws in ThisWorkBook.WorkSheets
ws.Columns.AutoFit
next ws

a+

 

[Pierrot93]

Re : largeur colonnes automatique

Bonsoir Michel

tu peux boucler sur toutes les feuilles ainsi :

Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Columns.AutoFit
Next ws
End Sub

procédure à placer dans un module standard, tu peux également l'installer dans le module "thisworkbook" et l'executer à l'ouverture ou fermeture du classeur, dans une procédure événementielle.

bonne soirée
@+

Edition : bonsoir mromain

 

[michel2000]

Re : largeur colonnes automatique

Bonjour Pierrot,
Merci beaucoup. Oui c'est bien ce que je cherchais.
Encore une fois Merci
Michel