erreur de "Sort" de VBA

Version imprimable

27/05/2011, 12h24
zangaloni

erreur de "Sort" de VBA

Bonjour,
je fais un tri sur un tableau à l'aide de la fonction sort de VBa.
J'utilise la formule suivante :

Code:

ThisWorkbook.Sheets("Consensus").Range("A6:E9").Sort Key1:=Range("B5"), Order1:=xlAscending, Key2:=Range("C5"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal

le problème c'est que à chaque fois le message que je met dans l'image ci-dessous me sort :
Pièce jointe 78110
J'ai fais plusieurs tentation, la seule chose qui a résolu le problème c'est que j'active la feuille ou le calcule se passe.
Alors que moi j'ai besoin de ne voir cette feuille qu'en cas de besoin.

Merci.
27/05/2011, 12h30
pgz

Bonjour.

B5 et C5 sont en dehors de la plage. Essaie avec B6 et C6.

PGZ
27/05/2011, 15h54
zangaloni

J'ai essayé ce que vous avez dit mais sans résultat..
J'ai aussi essayé de changer la sélection du range mais en vain.
:(
27/05/2011, 18h39
pgz

Citation:

Envoyé par zangaloni

J'ai essayé ce que vous avez dit mais sans résultat

Et tu as toujours la même erreur?

PGZ

Indiquer la feuille des ranges

Code:

1
2
3
With ThisWorkbook.Sheets("Consensus")
    .Range("A6:E9").Sort Key1:=.Range("B6"), Order1:=xlAscending, Key2:=.Range("C6"), Order2:=xlDescending, Header:=xlNo
End With

30/05/2011, 11h44
zangaloni

oh merci je n'avais pas fait attention à ceci.
Merci