Bouton tri sur une autre feuille

[CyK]

Bonjour le forum,
Bonjour le fil,

J'ai un problème avec la création d'un bouton de tri crée sur une feuille pour trier une autre feuille.

Si sur la feuille à trier je fais un bouton du style :

    Range('B4:D7').Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range('D5'), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        
    Range('B4').Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    
    Range('B11').Select
    ActiveSheet.Paste

Evidemment cela fonction bien, par contre si je veux faire la même chose le bouton de tri étant sr une autre feuille cela ne marche pas, j'ai pourtant bien appelé la feuille, j'ai essayé aussi avec un With Sheets('Feuil1') mais je n'y arrive pas :

    Sheets('Feuil1').Select
    Sheets('Feuil1').Range('B4:D7').Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range('D5'), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        
    Sheets('Feuil1').Range('B4').Select
    Sheets('Feuil1').Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    
    Sheets('Feuil2').Range('B11').Select
    ActiveSheet.Paste

D'avance merci.

Fichier joint [file name=test_tri.zip size=12848]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_tri.zip[/file]

 

[PascalXLD]

Bonjour

Il ne faut pas que ton code soit dans une feuille mais dans un module

 

[charly888]

Re : Bouton tri sur une autre feuille

Bonjour,

J'ai le même problème que toi il y a un cetain temps, j'aurais aimé savoir si tu avais trouvé une solution.

merci de ta réponse

Charly

 

[ccpapy]

Re : Bouton tri sur une autre feuille

bonjour, tu es allé cherché loin comme sujet
décembre 2005...
ceci dit la réponse a été donnée par PascalXLD juste dessus

mettre la Macro1 dans un module et mettre

Private Sub CommandButton1_Click()
Macro1
End Sub
dans la feuille
applique cela au fichier test de CyK et tu verras que cela fonctionne

à+