Marc_du_78
XLDnaute Accro
Bonjour à tous, le Forum,
Pouvez-vous me dire s'il y a un moyen de raccourcir ce code :
Sub LargCol()
Columns('A:A').Select
Selection.ColumnWidth = 14.5
Columns('B:E').Select
Selection.ColumnWidth = 2.5
Columns('F:F').Select
Selection.ColumnWidth = 12
Columns('G:G').Select
Selection.ColumnWidth = 15
Columns('H:H').Select
Selection.ColumnWidth = 21
Columns('I:I').Select
Selection.ColumnWidth = 13.5
Columns('J:J').Select
Selection.ColumnWidth = 10
Columns('K:K').Select
Selection.ColumnWidth = 13
Columns('L:W').Select
Selection.ColumnWidth = 13.5
Columns('X:Y').Select
Selection.ColumnWidth = 14
Columns('Z:AK').Select
Selection.ColumnWidth = 15.5
Columns('AL:AO').Select
Selection.ColumnWidth = 13
Columns('AP:AU').Select
Selection.ColumnWidth = 12
Columns('AV:AV').Select
Selection.ColumnWidth = 30
End Sub
En vous remerciant
Pouvez-vous me dire s'il y a un moyen de raccourcir ce code :
Sub LargCol()
Columns('A:A').Select
Selection.ColumnWidth = 14.5
Columns('B:E').Select
Selection.ColumnWidth = 2.5
Columns('F:F').Select
Selection.ColumnWidth = 12
Columns('G:G').Select
Selection.ColumnWidth = 15
Columns('H:H').Select
Selection.ColumnWidth = 21
Columns('I:I').Select
Selection.ColumnWidth = 13.5
Columns('J:J').Select
Selection.ColumnWidth = 10
Columns('K:K').Select
Selection.ColumnWidth = 13
Columns('L:W').Select
Selection.ColumnWidth = 13.5
Columns('X:Y').Select
Selection.ColumnWidth = 14
Columns('Z:AK').Select
Selection.ColumnWidth = 15.5
Columns('AL:AO').Select
Selection.ColumnWidth = 13
Columns('AP:AU').Select
Selection.ColumnWidth = 12
Columns('AV:AV').Select
Selection.ColumnWidth = 30
End Sub
En vous remerciant