Discussion :

[volubiliss]

Bonsoir

j'aimerai procéder à une mise en page (équilibrage de la taille des cellules par rapport aux données qu'elles contiennent) sur
plusieurs feuilles xls (40 pages)
j'ai écris ce code mais cela ne fonctionne pas, (erreur d'éxecution 1004 ) un regard extérieur me serait de la plus grande aide

Code :

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

1
2
3
4
5
6
Sub test()
 
For i = 1 To 40
 
Worksheets(i).Range("A1:I150").Select   ' taille du tableau de données contenu entre cellules A1 et I150
Selection.Columns.AutoFit

merci d'avance

[Gorfael]

Salut volubiliss et le forum

Code :

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

1
2
3
4
5
6
Sub test()
Dim I As integer
For I = 1 To 2
    Worksheets(I).Range("A1:I150").Columns.AutoFit
Next I
End Sub

Quand tu arrêteras d'utiliser les Select/Selection...
Je n'ai créé que deux feuilles pour tester. Vérifies que le nombre de feuilles est égal (ou supérieur) au nombre max que peut atteindre ta variable.
A+

[volubiliss]

bonsoir Gorfael
en effet il va falloir que j'arrête d'être obnubilé par les select !!
merci pour ton aide