Sujet Précédent Sujet Suivant

Tri sur 2 colonnes Excel

Résolu/Fermé
Ruffian1915 Messages postés 10 Date d'inscription mercredi 23 septembre 2020 Statut Membre Dernière intervention 13 mars 2024 - 15 mars 2022 à 15:28
Ruffian1915 Messages postés 10 Date d'inscription mercredi 23 septembre 2020 Statut Membre Dernière intervention 13 mars 2024 - 16 mars 2022 à 09:55
Bonjour,

Bonjour,
J'ai des colonnes C3 à I18, dans la colonne D j'ai des numéros de 1 à 31 et dans la colonne E des mots , des fois j'ai des mots différents sous le même n° EX:

C D E F G H I
9 R V 20 m p
10 S C 19 m p
10 A P 1 m p
11 M V 5 m p
13 A P 9 m p
Dans la colonne D au numéro 10 il y a à la colonne E un 10 avec S et un 10 avec un A je voudrai que quand je fais le tri en automatique le A du 10 Passe avant le S de l'autre 10.

Je trie avec :
Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
If sh.Name Like "##" Then
With sh
.Range("C3:L18").Sort key1:=.Range("D3"), order1:=xlAscending, Header:=xlNo
.Range("C19:L42").Sort key1:=.Range("D19"), order1:=xlAscending, Header:=xlNo
.Range("R15:V39").Sort key1:=.Range("R15"), order1:=xlAscending, Header:=xlNo
End With
End If
End Sub

Comment le modifier merci.

Configuration: Windows / Chrome 99.0.4844.51

3 réponses

Réponse 1 / 3
Raymond PENTIER Messages postés 58721 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 15 novembre 2024 17 236
15 mars 2022 à 15:46
Bonjour.

Tu veux absolument faire ce tri par macro ? Les outils de tri ne te conviennent pas ?
Il est extrêmement difficile pour nous de nous retrouver dans ce fatras ... Prière d'envoyer ton fichier Excel 
 1) Aller dans https://www.cjoint.com/ 
 2) Cliquer sur [Parcourir] pour sélectionner le fichier (15 Mo maxi)
 3) Défiler vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint] 
 4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; faire un clic-droit dessus et choisir "Copier le lien"
 5) Revenir dans la discussion sur CCM, et dans votre message faire "Coller".
=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers 
Il existe aussi https://www.transfernow.net/
0
Réponse 2 / 3
ALS35 Messages postés 1033 Date d'inscription jeudi 18 juillet 2019 Statut Membre Dernière intervention 9 janvier 2024 139
15 mars 2022 à 16:19
Bonjour,

Sans voir ton fichier, essaie : 
.Range("C3:L18").Sort key1:=.Range("D3"), order1:=xlAscending, Key2:=.Range("E3"), order2:=xlAscending, Header:=xlNo


Cordialement
0
Réponse 3 / 3
Ruffian1915 Messages postés 10 Date d'inscription mercredi 23 septembre 2020 Statut Membre Dernière intervention 13 mars 2024
16 mars 2022 à 09:55
Bonjour, merci de votre réponse cela fonctionne très bien.
Encore merci
0