probléme de tri

[kettou]

Bonjour à tous,
Voila ca fait un moment que je tourne en rond j'essaye d 'appliquer une macro pour trier des données par ordre alphabétiques. mais ca plante à chaque fois en m'affichant un message d'erreur invalide
voici la macro de tri

Application.Goto Reference:=Worksheets("Fiche ADV").Range("D7" & CStr(DerLigne + 4)), Scroll:=False
Selection.Sort Key1:=Range("D7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Est ce que quelqu'un aurait une idée?
Merci d'avance

 

[hbenalia]

Re : probléme de tri

Bonjour,

Remplacer D7 par D1...

Bonjour à tous,
Voila ca fait un moment que je tourne en rond j'essaye d 'appliquer une macro pour trier des données par ordre alphabétiques. mais ca plante à chaque fois en m'affichant un message d'erreur invalide
voici la macro de tri

Application.Goto Reference:=Worksheets("Fiche ADV").Range("D7" & CStr(DerLigne + 4)), Scroll:=False
Selection.Sort Key1:=Range("D7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Est ce que quelqu'un aurait une idée?
Merci d'avance

 

[hbenalia]

Re : probléme de tri

Bonjour,

Tu peux aussi remplacer ton code par l'un des codes suivants:

* Si le tri concerne seulement la selection D7 jusqu'à la fin :

Range("D7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("D7"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("d7").Select 'Juste pour revenir à la cellule D7

* Si le tri concerne toutes les lignes à la septième ligne jusqu'à la fin selon la colonne D :

Rows("7:7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("D7"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("d7").Select 'Juste pour revenir à la cellule D7

 

[kettou]

Re : probléme de tri

Re,
Aprés avoir changé la macro par vos suggestion g encore le meme message d'erreur 1004 référence de tri invalide
quelqu'un aurait une idée.
Merci

 

[kettou]

Re : probléme de tri

est ce que quelqu'un peut m'aider SVP?
Merci

 

[hbenalia]

Re : probléme de tri

Bonjour;

Proposer le fichier contenant ce code pour voir... Parce que j'ai fait un test de ces codes sur un fichier que j'ai créé personnellement et ça marche...

est ce que quelqu'un peut m'aider SVP?
Merci