Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+