Code Vba pour "trié une colonne"

  • Initiateur de la discussion Initiateur de la discussion nikwik666
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 😀
 
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
 
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" 😡

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é 😱
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
Réponses
4
Affichages
1 K
Réponses
8
Affichages
1 K
Retour