Discussion :

[bidochon34800]

Bonjour,
je cherche, à faire d'un seul coup d'un seul, à modifier et rendre identique les colonnes sélectionnées sur toutes les feuilles du classeur.
J'ai bidouillé un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'---------
Sub btn_largeur_colonnes_Click()
     Dim Ws As Worksheet
 
For Each Ws In ThisWorkbook.Worksheets
Ws.activate
    Columns("A:A").ColumnWidth = 1
    Columns("B:B").ColumnWidth = 5
    Columns("C:C").ColumnWidth = 27
    Columns("D:D").ColumnWidth = 127
    Columns("E:E").ColumnWidth = 30
Next Ws
End Sub

je pene que j'en suis pas loin mais ???? Merci de votre aide

[casefayere]

Bonjour,

En effet tu n'y es pas loin, juste, éviter les "Activate"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub btn_largeur_colonnes_Click()
     Dim Ws As Worksheet
 
For Each Ws In ThisWorkbook.Worksheets
With Ws
    .Columns("A:A").ColumnWidth = 1
    .Columns("B:B").ColumnWidth = 5
    .Columns("C:C").ColumnWidth = 27
    .Columns("D:D").ColumnWidth = 127
    .Columns("E:E").ColumnWidth = 30
  End With
Next Ws
End Sub

[bidochon34800]

ok ça marque impeccable. Merci.
Par contre tu peux succinctement m'expliquer le pourquoi ne pas activer chaque feuille, Y'a un truc que je ne saisis pas.
Merci toutefois

[casefayere]

Les "Activate" ou "Select" t'obligent à ouvrir les feuilles une à une, tu perds donc de la vitesse de traitement, dans ton cas, si tu as 3 feuilles, tu le sens à peine mais imagine 200 feuilles, ça t'inciterait a mettre des

Code :

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

1
2
3
Application.ScreenUpdating = False
'code
Application.ScreenUpdating = True

[bidochon34800]

re,
si j'ose insister, pourrais tu m'aider à y intégrer le code pour changer le fond des feuilles en allant chercher un fichier *.jpg
dans le répertoire "c:\moi\mes fichiers images _xyz.jpg"
merci

[bidochon34800]

euréka, j'ai trouvé seul (ou presque !!!). Je mets le code si ça peut aider quelqu'un:

Code :

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

1
2
3
Ws.SetBackgroundPicture Filename:=""
     Ws.SetBackgroundPicture Filename:= _
        "C:\moi\mes fichiers image\xyz.jpg" 'ATTENTION ne fonctionne qu'avec des jpg

et merci pour tes éclaircissements précédents. Tu es super.
merci encore