code largeur des colonnes

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
 

edelweisseric

XLDnaute Occasionnel
Re bonjour

Encore mieux : !!!!!!!!!!!!!!

Columns('A:A'). ColumnWidth = 14.5
Columns('B:E'). ColumnWidth = 2.5
Columns('F:AU'). ColumnWidth = 12
Columns('G:G'). ColumnWidth = 15
Columns('H:H'). ColumnWidth = 21
Columns('I:I'). ColumnWidth = 13.5
Columns('J:J'). ColumnWidth = 10
Columns('K:AO'). ColumnWidth = 13
Columns('L:W'). ColumnWidth = 13.5
Columns('X:Y'). ColumnWidth = 14
Columns('Z:AK'). ColumnWidth = 15.5
Columns('AV:AV'). ColumnWidth = 30

J'ai gagné 2 lignes

Essaie, je crois que c'est ce que tu veux

Bon WE
 

myDearFriend!

XLDnaute Barbatruc
Bonjour Marc_du_78, edelweisseric,

Tu peux également réduire ta procédure à ça :
Sub LargCol()
Dim C As String
Dim
L As Single
Dim
i As Byte
      For i = 1 To 14
            C = Choose(i, 'A', 'B:E', 'F', 'G', 'H', 'I', 'J', 'K', 'L:W', 'X:Y', 'Z:AK', 'AL:AO', 'AP:AU', 'AV')
            L = Choose(i, 14.5, 2.5, 12, 15, 21, 13.5, 10, 13, 13.5, 14, 15.5, 13, 12, 30)
            Columns(C).ColumnWidth = L
      Next i
End Sub
Cordialement,