Bonjour au forum,
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager