[XL-2007] ajustement automatique des colonnes dans l'ensemble des feuilles d'un classeur [Résolu]

[JYPIQ62]

Bonsoir,

Je viens de mettre en place une macro pour l'ajustement automatique des colonnes de l'ensemble des feuilles d'un classeur.

Code :

1
2
3
4
5
6
7
Sub AJUSTCOLUMN()
Dim sht As Worksheet
For Each sht In Worksheets
    Cells.Select
    Selection.Columns.AutoFit
Next
End Sub

Mon problème c'est qu'avec ce code, la macro ne s'execute que sur la première feuille (feuille active).

J'ai recherché sur diffèrentes discussions pour trouver l'anomalie mais mon code semble correct. Avez-vous une idée?
Merci pour votre aide

[gFZT82]

Bonjour,

Essaie avec

Code :

1
2
3
4
5
6
Sub AJUSTCOLUMN()
Dim sht As Worksheet
For Each sht In Worksheets
    sht.Columns.AutoFit
Next
End Sub

Cordialement.

[JYPIQ62]

Merci de ta réactivité

A+