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