Bouton tri sur une autre feuille

  • Initiateur de la discussion Initiateur de la discussion CyK
  • 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 !

CyK

XLDnaute Junior
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 :
Code:
    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 :

Code:
    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]
 

Pièces jointes

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

à+
 
- 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

Réponses
17
Affichages
1 K
Réponses
6
Affichages
1 K
Retour