Code Vba pour "trié une colonne"

nikwik666

XLDnaute Occasionnel
re bonjour tt le monde,

Voila j'ai un nouveau probleme avec mes macro,
J'aimerai connaitre le code qui me permette de trié ma colonne C de la ligne 4 jusqua la derniere ligne..J'ai éssayé ce code mais evidament ca marche pas :(

Sheets("Prg Orgine").Range("C4:C" & Sheets("Prg Orgine").Range("C65000").End(xlUp).Row).Select
Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Voilivoilou Merci d'éssayé de m'aider :D
 

Dull

XLDnaute Barbatruc
Re : Code Vba pour "trié une colonne"

Re nikwik666, Re le Forum

Fait avec l'enregisteur de Macro

PHP:
Sheets("Prg Orgine").Range("C4:C" & Sheets("Prg Orgine").Range("C65000").End(xlUp).Row).Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Bonne Journée
 

nikwik666

XLDnaute Occasionnel
Re : Code Vba pour "trié une colonne"

En fait je sais pourquoi ca ne marche pas : il faut que je lance ma macro de la feuille concerné au triage par exemple si je tri la colonne de "Prg Orgine" il faut que je soit sur la feuille "Prg Orgine" or moi jvoudrais lancé la macro a partir de la feuille "Comparaison" :mad:

Comment faire ?
J'ai pitetre une idée :

Sheets("Prg Orgine").Select
Sheets("Prg Orgine").Range("C4:C" & Sheets("Prg Orgine").Range("C65000").End(xlUp).Row).Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom


Vais testé :eek:
 

Discussions similaires

Réponses
3
Affichages
651

Statistiques des forums

Discussions
312 685
Messages
2 090 935
Membres
104 703
dernier inscrit
romla937