Re : VBA : Abbréviations d'instructions ?
Bonjour,
Ma contribution du jour. Ce n'est pas forcément plus court.
Sub nnn()
Range("D
").ColumnWidth = 12
Range("Y:Y").ColumnWidth = 20
Range("AC:AC").ColumnWidth = 30
Union([B:B], [D
], [G:H]).Select
'Union([B:B], [Y:Y], [G:H]).ColumnWidth = [{12,15,7}]
'With Union([B:B], [D
], [G:H]).Areas
'.Item(1).ColumnWidth = 12
'.Item(2).ColumnWidth = 24
'.Item(3).ColumnWidth = 36
'End With
'utilisation d'une fonction que j'ai nommé ChgWidth pour manipuler la propriété columnwidth.
x = ChgWidth([B:B], 12)
x = ChgWidth([D
], 24)
x = ChgWidth([G:H], 36)
'tu peux même écrire ces 3 instructions en une seule ligne en les séparant du signe ":"
With Union([B:B], [D
], [G:H]).Areas
x = ChgWidth(.Item(1), 12)
x = ChgWidth(.Item(2), 24)
x = ChgWidth(.Item(3), 36)
End With
End Sub
Function ChgWidth(rg As Range, largeur As Integer)
ChgWidth = CallByName(rg, "ColumnWidth", VbLet, largeur)
End Function
HTH