jacky49
XLDnaute Impliqué
Bonsoir le forum,
j'ai ce code ci-dessous qui me sert à masquer des lignes et colonnes et à imprimer le tableau mais je voudrais faire un tri du plus petit au plus grand sur la colonne EO mais tous fonctionne sauf le tri.
je pense que c'est cette ligne de code qui ne va pas , si quelqu'un a une idée
merci
jacky
j'ai ce code ci-dessous qui me sert à masquer des lignes et colonnes et à imprimer le tableau mais je voudrais faire un tri du plus petit au plus grand sur la colonne EO mais tous fonctionne sauf le tri.
Code:
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)
Range("EO" & LigneDeTitre), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
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
je pense que c'est cette ligne de code qui ne va pas , si quelqu'un a une idée
Code:
Range("EO" & LigneDeTitre), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
merci
jacky