Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Trie des colonnes

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

apdf

XLDnaute Occasionnel
Bonjour,

Je recherche a modifier mon code c'est à dire j'aimerais trier les colonnes "A2:F101 et K2:K101" avec ce code mais j'ai un message d'erreur "Argument ou Appel de procédure incorrect "

Code:
Private Sub CommandButton2_Click()

'trie et Classement

  Range("A2:F101,K2:K101").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Score").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Score").Sort.SortFields.Add Key:=Range("A2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Score").Sort
        .SetRange Range("A2:F101,K2:K101")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
     'sélectionne une autre cellule
    Range("M14").Select
End Sub

J'avoue, ne pas savoir comment faire ?

Je vous remercie de votre aide.
 

Pièces jointes

Dernière édition:
Re : Trie des colonnes

Bonjour Max le forum
depuis le temps tu ne sais toujours pas joindre un fichier??? c'est dommage tu aurais eu la réponse, mais moi je ne fais plus d'exemple de fichier!!
a+
papou😱
 
Re : Trie des colonnes

Bonjour Apdf le forum
Oui c'est possible de trier deux plages en même temps tu fais un union, tu colles dans une feuille temporaire tu tries et après tu colles le résultat, et tu supprimes la feuille temporaire, je ne vois pas ou est la difficulté comme semble le dire hervé 62 !!!!!
Maintenant cela n'est valable que si l'on souhaite conservé sur la même ligne les valeurs de Aà F et K ?? mais je pense que c'est ce qu'il veut??
Mais cela ne me paraît pas impossible avec max car avec lui tout est toujours très compliqué.
a+
papou😱
 
Dernière édition:
Re : Trie des colonnes

Bonjour à tous,

Peux-tu essayer ceci :

VB:
Private Sub CommandButton2_Click()
    'tri par Classement


    Application.Union(Range("A2:F101"), Range("K2:K101")).Select
    Application.CutCopyMode = False
    With ActiveWorkbook.Worksheets("Score").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A2:K101")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    'sélectionne une autre cellule
    Range("M14").Select
End Sub

A + à tous
 
Re : Trie des colonnes

Re JCGL😱 apdf le forum
JC Moi j'ai essayé comme cela sous 2003 cela ne marche pas mais avec la bidouille on y arrive
par contre je vais attendre la réponse pour savoir si sous 2007 cela marche !!!
a+
papou😱
 
- 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

  • Question Question
XL 2021 listbox
Réponses
18
Affichages
740
Réponses
17
Affichages
1 K
B
  • Question Question
Réponses
2
Affichages
776
Benjy51190
B
Réponses
11
Affichages
969
Réponses
6
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…