Code fonctionne mal

[jacky49]

Bonsoir le forum,
j'ai ce ce code ci-dessous qui masque bien les colonnes et les lignes mais je demande de ranger par ordre du plus petit au plus grand la colonne EY mais elle ne se range pas
est ce que quelqu'un sait pourquoi
merci
jacky

Sub PlacementSurLaLigne(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("EI1:FF" & Derlig)
    Range("EY7:EY105").Sort Key1:=Range("EY7"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
Rows("2:4").Hidden = True
Columns("EM:EX").EntireColumn.Hidden = True
Columns("EZ:FF").EntireColumn.Hidden = True
With Ws.PageSetup
    .PrintArea = MaPlage.Address
       '.LeftFooter = ""
       .CenterFooter = "&""Times New Roman,italique""&18" & [FH8] & Chr(10) & [Fk8] & " , " & [Fl8] & " , " & [Fm8] & " , " & [Fn8] & "  " & [FO8] & Chr(10) & [FQ8]
       '.RightFooter = ""
End With
With Ws.PageSetup
.PrintArea = MaPlage.Address
       '.LeftHeader = ""
       .CenterHeader = "&""Times New Roman,italique""&20" & [EY5] & Chr(10) & [EM2] & "  " & [FJ8] & Chr(10) & Chr(10) & [EK3] & Chr(10) & [EI4]
        '.RightHeader = ""
End With
    Ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
Call insertionImage_EntetePage
End Sub

 

[kjin]

Re : Code fonctionne mal

bonsoir,
essaie

Sub PlacementSurLaLigne(ByVal WsName As String)
Dim ws As Worksheet
Dim MaPlage As Range
Application.ScreenUpdating = False
Set ws = Worksheets(WsName)
With ws
    Derlig = .Range("EL" & ws.Rows.Count).End(xlUp).Row
    Set MaPlage = .Range("EI1:FF" & Derlig)
    .Range("EY7:EY105").Sort Key1:=.Range("EY7"), Order1:=xlAscending, Header:=xlGuess
    .Rows("2:4").Hidden = True
    .Columns("EM:EX").EntireColumn.Hidden = True
    .Columns("EZ:FF").EntireColumn.Hidden = True
    With .PageSetup
        .PrintArea = MaPlage.Address
        .CenterFooter = "&""Times New Roman,italique""&18" & [FH8] & Chr(10) & [Fk8] & " , " & [Fl8] & " , " & [Fm8] & " , " & [Fn8] & "  " & [FO8] & Chr(10) & [FQ8]
        .CenterHeader = "&""Times New Roman,italique""&20" & [EY5] & Chr(10) & [EM2] & "  " & [FJ8] & Chr(10) & Chr(10) & [EK3] & Chr(10) & [EI4]
    End With
    .PrintOut Copies:=4, Collate:=True
End With
Call insertionImage_EntetePage
End Sub

A+
kjin

 

[jacky49]

Re : Code fonctionne mal

bONSOIR Kjin,

merci, cela fonctionne nickel
jacky