Multitude de With, optimisation possible ?
Bonjour au forum, :D
La macro suivante a été crée par l'enregistreur à l'origine. Quelques questions ...
1er point : En essayant de limiter les "select" j'ai crée plusieurs With End With ... est-il possible de les regrouper pour que cela soit moins fastidieux ?
2ème point : en voulant modifier la hauteur de la ligne de titre (1), la commande supprime ma ligne de titre avec ses intitulés mais la hauteur est changée, la ligne 1 contient les valeurs à la place
3ème point : je voulais sauver la feuille uniquement, cela est-il possible ? Les traitements suivants du classeur ne seront pas enregistrés. Par ailleurs, quel est le moyen de ne pas utiliser les "Active..." ralentisseurs de codes ?
Merci d'avance pour vos réponses à mon petit niveau de codage:oops:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
|
Sub Afichage()
Application.ScreenUpdating = False
With Sheets("test").Range("1:1").RowHeight = 25.5
End With
With Sheets("test").Range("2:300").RowHeight = 12.75
End With
With Sheets("test").UsedRange
.Sort Key1:=Range("B2"), Order1:=xlAscending
End With
With Sheets("test")
Columns("E:E").ColumnWidth = 12.43
Columns("I:I").ColumnWidth = 8.43
Columns("K:K").ColumnWidth = 12.29
Columns("L:L").ColumnWidth = 10.86
Columns("R:R").ColumnWidth = 21
Columns("S:S").ColumnWidth = 22.71
Columns("U:U").ColumnWidth = 11.14
Columns("V:V").ColumnWidth = 6.57
Columns("W:W").ColumnWidth = 17.14
Columns("X:X").ColumnWidth = 25.57
End With
With Sheets("test").Range("J2")
ActiveWindow.FreezePanes = True
ActiveWorkbook.Save
End With
Application.ScreenUpdating = True
End Sub |