pb pour creer une plage de cellules variables

Version imprimable

Bonsoir, je souhaite faire un tri comme suit:

Code:

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...

07/04/2012, 19h02
wilfried_42

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

Code:

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

Bonjour,

Essaie avec

Code:

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.

07/04/2012, 19h25
jumpman

Bravo pour le dernier code, il fallait rajouter les "." mais aussi tout mettre dans la boucle :ccool:
07/04/2012, 20h02
gFZT82

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

Cordialement.

Merci de penser à cliquer sur :resolu:

Fuseau horaire GMT +2. Il est actuellement 06h01.