Discussion :

[scroutch]

Bonjour à vous

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

Code :

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

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

message rendu

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

[Invité]

Que sont les textes en rouge ?

[Docmarti]

Bonsoir scroutch.

Bonjour à vous

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

Code :

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

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 :

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

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