Trier des cellules Excel par ordre alphabetique

Question

Bonjour !!

Existe-t'il un code ou un sujet qui parle d&#233;j&#224; de cela, parce que je n'ai rien trouv&#233; en faisant les recherches, si ce n'est de trier des feuilles excel, ce qui ne me sert &#224; rien !

En fait, il faudrait que je puisse trier une zone de selection du style (B2:J32) sous Excel en prenant comme triage l'ordre alphab&#233;tique de la colonne B en premier, et colonne C en deuxi&#232;me etc ...

Merci de votre aide ..

cs_Willi · Answer

Salut,
Rien de plus simple, tu cr&#233;er une macro, tu fais ta s&#233;lection + ton clic sur l'icone de trie par ordre alphab&#233;tique et hop c'est magique tu as ton code tout fait &#224; savoir:

    Range("B2:B32").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Et ainsi de suite pour la colonne C,D....J

nagstef · Answer

Re-moi

Voici le code que la macro m'a donn&#233;e. J'ai plac&#233; "Feuille4" devant Range et Selection puisque la macro se fait sur la feuille active, sachant donc que Feuille4 est bien d&#233;finie.

  Feuille4.Range("A2:W200").Select
    Feuille4.Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal

"Erreur 1004
La m&#233;thode Select de la classe Range a &#233;chou&#233;" donc erreur d&#233;s la premi&#232;re ligne.

Est-ce ma feuille4 qui n'est pas reconnue correctement ? ou vraiment VB6 qui ne g&#232;re pas le Range de cette facon ?

Une id&#233;e ??

Merci encore[ ]

cs_Willi · Answer

Tu aurais du pr&#233;ciser d&#232;s le d&#233;but que tu manipuler un objet excel avec vb6.

Voici un exemple (non test&#233;) qui te trie par ordre alphab&#233;tique dans la "feuille4" une s&#233;lection de B2 &#224; B32

----------------------------------------------
Dim w As Workbook
Set w = Workbooks.Open("c:\Classeur1.xls")
    
Dim x As Worksheet
Set x = w.Sheets("Feuil4")
    
 x.Range("B2:B32").Sort Key1:=x.Range("B2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal


w.Save
w.Close
----------------------------------------------

nagstef · Answer

Et voui, encore moi !!

Alors, dans le principe, cela marche bien, mais le probl&#232;me qui se pose &#224; moi, est que, dans un meme doc Xls, il me faut trier 3 onglets diff&#233;rents et ce avec 3 command diff&#233;rentes, donc pas au m&#234;me moment, mais seulement &#224; la demande.

Et apparement, lorsque je fais un Range.select, il ne se remet pas &#224; Z&#233;ro une fois le ".sort" effectu&#233;.

Donc, lorsque je clique sur un autre bouton, il me fait encore :

"Erreur 1004
La m&#233;thode Select de la classe Range a &#233;chou&#233;"

mon code, o&#249; seulement la "FeuilleX" change :

Private sub Command1_Click()
feuille_load 'l&#224; un module o&#249; je charge sans pb le worbook et worksheet, cela marche nickle pour d'autre partie du programme
   
   Feuille6.Range("B2:W200").Select <== ERREUR et donc fin
   Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Key2:=Range("C1"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
   Feuille6.Range("").Select <== ERREUR si le .sort a bien march&#233; ..


fin_feuille 'l&#224;, un module o&#249; je sauvegarde, et ferme l'appli
End Sub

Je ne comprends plus trop..
En un mot, le .select est-il gard&#233; en m&#233;moire, et si oui, comment le r&#233;initialiser ?

Merci encore ...

nagstef · Answer

PS : j'ai remarqu&#233; que si je vais sur le fichier XLS concern&#233;, et que je selectionne les Cellules ("B2:W200") et "Zone d'impression/D&#233;finir", le bouton correspondant &#224; cet ongler marche bien, mais, le bouton correspondant &#224; un autre onglet me fait l'erreur si dessus.

Et m&#234;me, da,s le code, lorsque je prends les devants en faisant
   Feuille4.PageSetup.PrintArea = "B2:W200"
Et bien, malgr&#233; tout, il me fait une erreur &#224; la ligne suivante, c'est &#224; dire :
  Feuille4.Range("B2:W200").Select 

Voila, pour l'info.

cs_Willi · Answer

Je ne sais pas si tu lis les r&#233;ponses que l'ont te donnes....tu ne devrais plus avoir de probl&#232;mes...
Pourrais-tu une fois pour toute affirmer si tu travails en vba excel ou si tu es dans vb6 ?

nagstef · Answer

yop !

Ben d'apr&#232;s le msg 3 et ta r&#233;ponse 4, je pensais que tu avais bien compris que c'etait du VB6 ..

Alors, la raison pour laquelle j'ai essay&#233; de passer par autre chose est la suivante :
Comme expliqu&#233; pr&#233;c&#233;demment, j'ai plusieurs onglets pour lequels je veux trier, j'ai donc fais ceci en suivant ton exemple qui marche bien avec 1 onglet &#224; trier :

Dim w As Workbook
Set w = Workbooks.Open("c:\centres.xls")
    
Dim x As Worksheet
Set x = w.Sheets("registre")
Set z = w.Sheets("infos")
    
x.Range("B2:B32").Sort Key1:=x.Range("B2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

z.Range("B2:B32").Sort Key1:=x.Range("B2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal


w.Save
w.Close
Et l&#224;, &#224; la 2&#232;me ligne z.range .........
"Erreur 1004
Ref&#233;rence de tri non valide, v&#233;rifiez qu'elle se trouve bien parmi les donn&#233;es &#224; trier, et que la zone Trier par n'est pas identique ou vide"

M&#234;me lorsque je divise le code en 2 boutons distincts, erreur similaire. D'o&#249; mon incompr&#233;hension ...

Merci bien ..

nagstef · Answer

Ben voila, j'ai finalement compris o&#249; etait mon erreur :

z.Range("B2:B32").Sort Key1:=X.Range("B2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Et donc, bien sur, ca posait un pb ... Dsl pour le d&#233;rangement

Stef

cs_Willi · Answer

Oui l'erreur du z &#233;tait flagrante 
Bonne continuation ++

Trier des cellules Excel par ordre alphabetique

9 réponses

Discussions similaires