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.

[Invité]

Bonjour,

J'ai adapté votre code pour exécuter un tri sur la colonne EO. A adapter suivant que votre ligne de titre n'est pas la ligne 1.

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
38
39
40
41
42
43
44
45
46
47
48
Sub PlacementSurLaLigneCourse1(ByVal WsName As String)
 
Dim ws As Worksheet
Dim MaPlage As Range
Dim NbColonnes As Long
Dim LigneDeTitre As Long
Dim DerLig As Long
 
 
 
 
 Application.ScreenUpdating = False
 
 
 
    Set ws = Worksheets(WsName)
    DerLig = ws.Range("EL" & ws.Rows.Count).End(xlUp).Row
    Set MaPlage = ws.Range("EH1:FF" & DerLig)
 
    ws.Activate
    LigneDeTitre = 1
    NbColonnes = Cells(LigneDeTitre, ws.Columns.Count).End(xlToLeft).Column
 
    Range(Cells(LigneDeTitre, 1), Cells(DerLig, NbColonnes)).Select
 
    Selection.Sort Key1:=Range("EO" & LigneDeTitre), Order1:=xlAscending, Header:=xlYes, _
          OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
 Exit Sub
 
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

Cordialement.

[jacfld49]

bonjour le forum, Eric KERGRESSE ,

Il me range bien la colonne "EO" mais il me sélectionne toute la page donc mes 13 tableaux alors qu'on lui demande de sélectionner la plage "EH1:FF" qui correspond à mon dernier tableau et ensuite il doit me masquer les lignes 2à4 et colonnes indiquées dans le code comme demander
merci de ton aide
jack

Re bonsoir le forum, Eric KERGRESSE,

Yahouuuuuuuuuuuuuuuuuuu, j'ai trouvé, j'ai ajouté 143 sur cette ligne pour le démarrage de la selection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(LigneDeTitre, 143), Cells(DerLig, NbColonnes)).Select

et j'ai mis un " apostrophe " ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Exit Sub

et maintenant cela fonctionne, mais à quoi servait le Exit Sub ??
merci beaucoup
jack

[Invité]

Bonjour,

Désolé de n'avoir pas retiré le Exit Sub. Celui-ci m'a servi à tester la première partie du code sans aller plus loin.

L'important c'est que vous ayez compris et réussi à vous dépanner.

Bon courage pour la suite.

Cordialement.