Discussion :

[Invité]

bonjour,
je débute et dans le tri descendant je voudrais supprimer les lignes vides qui passent au dessus car le tableau n'est parfois pas rempli en entier

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
Sub tridécroissant()
'
' tridécroissant Macro
 
'
' Touche de raccourci du clavier: Ctrl+b
'
ActiveSheet.Unprotect ("mdp")
    Range("B8:N41").Select
    Selection.Sort Key1:=Range("N8"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        ActiveSheet.Protect ("mdp")
        Range("A1").Select
End Sub

Merci

[tirex28]

Bonsoir,

A tester, tri d'abord en ordre croissant, redefini la plage en excluant les lignes vides, puis tri en ordre decroissant.

Code :

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

1
2
3
4
5
6
7
8
Range("B8:N41").Sort Key1:=Range("N8"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
With Range(Range("B8"), Range("N41").End(xlUp))
    .Sort Key1:=Range("N8"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End With

Cordialement,

Tirex28/

[Invité]

Merci de m'aider
je viens d'essayer mais le tri descendant n'est pas fait et une ligne d'au dessus passe en dessous avec

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
Sub tridécroissant()
'
' tridécroissant Macro
' Macro enregistrée le 19/10/2008 par zzz
'
' Touche de raccourci du clavier: Ctrl+b
'
ActiveSheet.Unprotect ("mdp")
   Range("B8:N41").Sort Key1:=Range("N8"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
With Range(Range("B8"), Range("N41").End(xlUp))
    .Sort Key1:=Range("N8"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End With
        ActiveSheet.Protect ("mdp")
        Range("A1").Select
End Sub

[tirex28]

Re,

Oups !

Code :

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

1
2
3
4
5
6
7
8
   Range("B8:N41").Sort Key1:=Range("N8"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
With Range(Range("B8"), Range("N41").End(xlUp))
    .Sort Key1:=Range("N8"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End With

Tirex28/

[Invité]

Merci mais ça trie juste dans l'ordre croissant

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
Sub tridécroissant()
'
' tridécroissant Macro
' Macro enregistrée le 19/10/2008 par zzz
'
' Touche de raccourci du clavier: Ctrl+b
'
ActiveSheet.Unprotect ("mdp")
     Range("B8:N41").Sort Key1:=Range("N8"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
With Range(Range("B8"), Range("N41").End(xlUp))
    .Sort Key1:=Range("N8"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End With
        ActiveSheet.Protect ("mdp")
        Range("A1").Select
End Sub

[tirex28]

Re,

Peux tu montrer un échantillon représentatif de tes données et du résultat souhaité? La 1ere ligne (8) représente des titres ou des données?

Tirex28/