Discussion :

[midge]

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

[mercatog]

Pour les With, tu peux faire comme ceci

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
Sub Afichage()
 
Application.ScreenUpdating = False
With Sheets("test")
    .Rows(1).RowHeight = 25.5
    .Rows("2:300").RowHeight = 12.75
    .UsedRange.Sort Key1:=.Range("B2"), Order1:=xlAscending
    .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