Discussion :

[jacfld49]

Bonsoir le forum,

j'ouvre ce fil car j'ai un autre souci sur ce code qui me sert à masquer des lignes et colonnes et à imprimer le tableau mais je voudrais ajouter un tri du plus petit au plus grand sur la colonne EO

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
Sub PlacementSurLaLigneCourse1(ByVal WsName As String)
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim MaPlage As Range
    Set ws = Worksheets(WsName)
    Derlig = ws.Range("EL" & ws.Rows.Count).End(xlUp).Row
    Set MaPlage = ws.Range("EH1:FF" & Derlig)
 
Rows("2:4").Hidden = True
Columns("EM:ES").EntireColumn.Hidden = True
Columns("EU:FF").EntireColumn.Hidden = True
With ws.PageSetup
    .PrintArea = MaPlage.Address
       '.LeftFooter = ""
       .CenterFooter = "&""Times New Roman,italique""&18" & [FT8] & Chr(10) & [FW8] & " , " & [FX8] & " , " & [FY8] & "   " & [FZ8] & "  " & [GA8] & "  " & Chr(10) & [GC8]
       '.RightFooter = ""
End With
With ws.PageSetup
.PrintArea = MaPlage.Address
       '.LeftHeader = ""
       .CenterHeader = "&""Times New Roman,italique""&20" & [ET5] & Chr(10) & [EM2] & "  " & [FO8] & Chr(10) & Chr(10) & [EK3] & Chr(10) & [EI4]
        '.RightHeader = ""
End With
    ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
End Sub

merci

[nibledispo]

bonjour,

Regarde si la solution de Philippe te convient dans dans la discussion ci-dessous:

trie-horizontale-ne-marche-pas

cordialement.