jacky49
XLDnaute Impliqué
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
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
Code:
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