mise en page largeur de colonne en vba

[steph.777]

Bonsoir le forum

petit pb avec le code ci dessous il fontionne normalement mais il ne fait pas le boulot demander
la largeur des colonnes n'est pas modifier dans les differentes feuilles ou plutot si mais avec d'autres largeur ?

MERCI POUR VOTRE AIDE






Sub RECOPIEXXXXXX()

Dim chw As String
Dim z As Byte
Dim w As Byte


z = Sheets("protection").Cells(30, 2)

For w = 1 To z
chw = Sheets("protection").Cells(w + 30, 1)





Sheets(chw).Select

Selection.RowHeight = 11
Columns("A:A").Select
Selection.ColumnWidth = 19
Columns("B:B").Select
Selection.ColumnWidth = 8
Columns("C:C").Select
Selection.ColumnWidth = 6
Columns("D😀").Select
Selection.ColumnWidth = 6
Columns("E:E").Select
Selection.ColumnWidth = 7.6
Columns("E:E").Select
Selection.ColumnWidth = 8
Columns("F:F").Select
Range("F12").Activate
Selection.ColumnWidth = 6
Columns("F:F").Select
Range("F12").Activate
Selection.ColumnWidth = 6.5
Columns("G:G").Select
Range("G12").Activate
Selection.ColumnWidth = 6.5
Columns("H:H").Select
Range("H13").Activate
Selection.ColumnWidth = 6.5



'Sheets(chw).Select

Next
End Sub

 

[PascalXLD]

Re : mise en page largeur de colonne en vba

Bonjour

tu pourrais simplifier ta macro

sinon il faudrait avoir ton fichier sans données juste les feuilles et leurs noms

 

[steph.777]

Re : mise en page largeur de colonne en vba

MERCI POUR TON AIDE
je me suis resolu a faire un copier collage special largeur de colonnes manuellement j'ai 100 feuilles................................................................
a+

 

[Roland_M]

Re : mise en page largeur de colonne en vba

bonsoir, ça ne serait pas plus simple comme ceci !?
Sheets(chw).Select
Selection.RowHeight = 11
Columns("A").ColumnWidth = 19
Columns("B").ColumnWidth = 8
Columns("C").ColumnWidth = 6
Columns("D").ColumnWidth = 6
Columns("E").ColumnWidth = 7.6
Columns("E").ColumnWidth = 8
Columns("F").ColumnWidth = 6.5
Columns("G").ColumnWidth = 6.5
Columns("H").ColumnWidth = 6.5

Roland