Trier en une fois deux lots de colonne et lignes
Résolu/Fermé
A voir également:
- Trier en une fois deux lots de colonne et lignes
- Déplacer une colonne excel - Guide
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
- Qu'est ce qu'une femme fait 3 fois par jour - Forum Loisirs / Divertissements
- Deux comptes whatsapp - Guide
2 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
Modifié le 21 oct. 2019 à 18:38
Modifié le 21 oct. 2019 à 18:38
Bonjour,
Tu te sers de l'enregistreur de macro pour faire ton tri.
Ensuite tu vas dans ThisWorkbook et tu mets ceci:
Voilà c'est simple, à chaque changement de feuille la macro se déclenchera
Tu te sers de l'enregistreur de macro pour faire ton tri.
Ensuite tu vas dans ThisWorkbook et tu mets ceci:
Option Explicit Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Macro1 ' a adapter le nom de la macro que tu as obtenu avec l'enregistreur End Sub
Voilà c'est simple, à chaque changement de feuille la macro se déclenchera
Bonjour,
J'ai trouvé une autre solution, par diablo
diablo13800 772
22 oct. 2019 à 10:55
0
Merci
Bonjour,
Vous devriez essayer de l'écrire en deux lignes:
.Range("D3:P22").Sort key1:=.Range("D3"), order1:=xlAscending, Header:=xlNo
.Range("D23:P41").Sort key1:=.Range("D23"), order1:=xlAscending, Header:=xlNo
Je vous remercie, je vais essayé votre solution pour voir qu'elle est la mieux.
Cordialement
J'ai trouvé une autre solution, par diablo
diablo13800 772
22 oct. 2019 à 10:55
0
Merci
Bonjour,
Vous devriez essayer de l'écrire en deux lignes:
.Range("D3:P22").Sort key1:=.Range("D3"), order1:=xlAscending, Header:=xlNo
.Range("D23:P41").Sort key1:=.Range("D23"), order1:=xlAscending, Header:=xlNo
Je vous remercie, je vais essayé votre solution pour voir qu'elle est la mieux.
Cordialement
22 oct. 2019 à 09:54
Cela fonctionne pour les D2:N20 Mais pas pour les lignes D22:N40, comment faire pour que cela trie, la partie 1 (D2:N20) et la partie 2 (D22:N40).
Merci.
Salutations.
22 oct. 2019 à 10:44
et tu changes cela comme ceci:
@+ Le Pivert