erreur de "Sort" de VBA

**zangaloni** · 27/05/2011, 12h24

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

Code :

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

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.

**pgz** · 27/05/2011, 12h30

Bonjour.

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

PGZ

**zangaloni** · 27/05/2011, 15h54

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.

**pgz** · 27/05/2011, 18h39

Envoyé par zangaloni

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

Et tu as toujours la même erreur?

PGZ

**mercatog** · 27/05/2011, 18h44

Indiquer la feuille des ranges

Code :

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

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

**zangaloni** · 30/05/2011, 11h44

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

erreur de "Sort" de VBA [XL-2003]

Macros et VBA Excel

Vue hybride

Partager

Partager