Discussion :

[volubiliss]

Bonjour
question de débutant...
j'aimerai sur un fichier xls composé de plusieurs feuilles appliquer l'action suivante (concerne un tableau de données)

Code :

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

1
2
Cells.Select
Selection.Columns.AutoFit

Comment dois je faire pour l'appliquer sur toute les feuilles (39 au total)
sans les spécifier à chaque fois

Merci d'avance
bonne journée à tous

[bosk1000]

bonjour

en utilisant une boucle for ... next

Code :

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

1
2
3
4
5
6
7
8
9
 
dim i 
for i to 39
worksheet(i).select
 
Cells.Select
Selection.Columns.AutoFit
 
next i

mais j'ai pas testé, je pense que ça doit être pas loin

[laetitia]

bonjour volubiliss,bosk une autre méthode a adapter

Code :

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

1
2
3
4
5
6
7
8
Sub es()
  Dim Ws As Worksheet
  Application.ScreenUpdating = False
  For Each Ws In Worksheets
      Ws.Activate
      Columns("A:IV").AutoFit
   Next Ws
End Sub

[volubiliss]

bonjour Bosk1000
merci pour cette réponse
pour la 2eme ligne [for i+39] j'ai un message d'erreur de compilation avec attendu :=
quelle est la solution?
pour la 1 ligne j'ai affecté le 1 comme integer => dim i as integer

Merci

Merci Laetitia

ca fonctionne très bien !