Tri sur 2 colonnes Excel

Résolu
Ruffian1915 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
Ruffian1915 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

Raymond PENTIER Messages postés 58989 Date d'inscription   Statut Contributeur Dernière intervention   17 353
 
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
ALS35 Messages postés 1033 Date d'inscription   Statut Membre Dernière intervention   145
 
Bonjour,

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


Cordialement
0
Ruffian1915 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour, merci de votre réponse cela fonctionne très bien.
Encore merci
0