Tri d'une plage sous excel en VBA

Bonjour à vous

je fais sans doute une erreur vraiment stupide mais là je capitule je ne trouve pas :S

Code:

---

Range(Cells(Range("syntheseobjet").Row + 4, Range("syntheseobjet").Column).Address, Cells(Range("syntheseprix").Row + 10000, Range("syntheseprix").Column).Address)

---

message rendu

Citation:

---

erreur 1004
référence de tri non valide vérifier qu'elle se trouve bien parmi les données à trier et que la zone trier par n'est pas identique ou vide

---

Que sont les textes en rouge ?

Bonsoir scroutch.

Citation:

---

Envoyé par scroutch

Bonjour à vous

je fais sans doute une erreur vraiment stupide mais là je capitule je ne trouve pas :S

Code:

---

Range(Cells(Range("syntheseobjet").Row + 4, Range("syntheseobjet").Column).Address, Cells(Range("syntheseprix").Row + 10000, Range("syntheseprix").Column).Address)

---

message rendu

---

Je ne vois pas ton code de tri qui produit l'erreur.
Mais voici un exemple fonctionnel.

Code:

---

1 2 3 4 5 6 7 8

Set f = ActiveSheet   r = f.Range(Cells(Range("syntheseobjet").Row + 4, Range("syntheseobjet").Column).Address, Cells(Range("syntheseprix").Row + 10000, Range("syntheseprix").Column).Address).Address   rKey1 = f.Range(r).Cells(1, 1).Address   f.Range(r).Sort Key1:=f.Range(rKey1), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

---