Sort setRange

[sarrsouraa]

bonsoir tout le monde

j'essaie depuis une macro d'effectuer un sort :

Sheets("Tender_list").Sort.SortFields.Clear
Sheets("Cost").Sort.SortFields.Add Key:=Range(Cells(8, 6), Cells(Range("U65536").End(xlUp).Row, 6)),SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With Sheets("Cost").Sort
.SetRange = Range("A7:CQ" & fin & ",DA7:ED" & fin)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With


excel n'accepte pas l'instruction rouge "error"

Merci beaucoup d'avance

 

[Gorfael]

Re : Sort setRange

Salut sarrsouraa et le forum
Je vais essayer de comprendre :
Tu nous donnes un code, qui ne fonctionne pas pour qu'on le dépanne, en étant persuadé que ton code est bon, mais qu'excel te fait des misères ?

Je ne connais pas ton sort : pour moi, c'est une méthode qui s'applique à un Range (plage de cellules) et non à une feuille (Sheet)
Mais comme je n'ai qu'une version 2003, c'est possible que VBA est évolué dans ce sens.

Par contre, ça m'étonnerait que les tris puissent s'appliquer à des plages non contigües.

Si ton code ne fonctionne pas, c'est qu'il n'est pas "correct" : On ne peut donc pas estimer un raisonnement du fonctionnement attendu de la macro => donnes-le !!!
A+
Nota : plus de 150 postes et tu n'as toujours pas compris l'intérêt des balises code (#) ?