Discussion :

[jumpman]

Bonsoir, je souhaite faire un tri comme suit:

Code :

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

1
2
3
4
5
6
7
8
a = Sheets("cartt").Range("j1")
b = Sheets("cartt").Range("h1")
 
    With Sheets("cartt")
    .range(Range("a" & a),range("g" & b)).Sort Key1:=.Range("A" & a), Order1:=xlAscending, Header:=xlGuess,
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    End With

Mais bien sur sa plante...

[wilfried_42]

bonjour, sans plus de renseignements je ne vois pas grand chose, peut être mais pas sur sans ton classeur.

Code :

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

.range(.range("a"&a),.range("g" & b)).sort.........

[gFZT82]

Bonjour,

Essaie avec

Code :

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

1
2
3
4
5
6
7
With Sheets("cartt")
        a = .Range("j1")
        b = .Range("h1")
        .Range(.Range("A" & a), .Range("G" & b)).Sort Key1:=.Range("A" & a), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal    
End With

Cordialement.

[jumpman]

Bravo pour le dernier code, il fallait rajouter les "." mais aussi tout mettre dans la boucle

[gFZT82]

Il fallait surtout ajouter le underscore après Header:=xlGuess,

Cordialement.

Merci de penser à cliquer sur