XL 2016 INDEX et/ou EQUIV

bof · 4 Octobre 2023

Bonjour,

J’ai toujours été sous doué en formules… et l'aide de crosoft m'a toujours semblé incompréhensible...
Je désire trier un tableau (pour l’exemple de 3 colonnes) selon la colonne C (à compléter par une formule.)
Cette colonne C doit être remplie par l’Index de la colonne H correspondant à B
Euh je ne sais pas si c’est clair, mais j’ai commencé à remplir cette colonne C en manuel YAPUKA trouver la formule qui donne ce résultat et l’étendre jusqu’en bas…
Le but étant que à la fin du tri sur la colonne C, tous les E de Ref se retrouvent en premier et tous les G en dernier…
Merci

RyuAutodidacte · 4 Octobre 2023

bof à dit:
mon référentiel d'indexation pourrait bien évoluer en une douzaine d'items voire plus...

il faudra juste mettre à jour la formule EQUIV que j'ai donné sur le post 6

De cette manière c'est le filtre automatique qui fera le travail (solution sans Macros)

CISCO · 4 Octobre 2023

Bonsoir

Cela ne serait pas plutôt 1, 6, 25, 30, 54, 58, 33, 37...

@ plus

bof · 4 Octobre 2023

Oui in fine quand on aura fini de remplir la colonne C avec une formule et qu'on aura trié sur la colonne C effectivement dans la colonne A on aura bien 1, 6, 25, 30, 54, 58, 33, 37...
Mais je ne sais pas trier comme ça sans indexer la colonne B en fonction du référentiel de tri (colonne H)

RyuAutodidacte · 4 Octobre 2023

Bonjour,

une solution toute simple sans formule :

Aller dans les options => liste personnalisée puis importer la liste depuis des cellule
Une fois les celllules sélectionnées, faire importer pour avoir la liste,
valider/fermer la fenêtre et revenir au fichier
Sélectionner la plage à trier et faire "Trier", cocher qu'il y a des entêtes
Choisir la colonne voulue : ici Ref
et pour l'ordre sélectionner "Liste personnalisée…"
Sélectionner la liste que l'on a créé
Mettre l'ordre voulue (ordre croissant avec notre liste personnalisée)
puis valider
Le résultat :

Comme ça pas de problème pour un sous-doué en formule

bof · 4 Octobre 2023

Bonsoir,
Cette solution ne me convient pas car il y a encore plus sous-doué que moi ! Donc je ferai une macro transparente qui fera le tri sans pb...
Ceci dit en réalité j'ai plusieurs milliers de lignes et plusieurs dizaines de colonnes... Si quelqu'un voit une solution qui ne m'oblige pas à créer une 3ème colonne qui ne me servira pas à grand chose... Mais je ne vois guère d'autre solution même en VBA car mon référentiel d'indexation pourrait bien évoluer en une douzaine d'items voire plus...
A+

RyuAutodidacte · 4 Octobre 2023

Re,

Autre solution en utilisant la formule EQUIV :
En colonne D on créé la colonne TRI, en D2 on met la formule :

VB:

=EQUIV(B2;$H$2:$H$6;0)

on étire la formule, jusqu'à la fin de ligne des donnée
De la colonne A à D on met le filtre automatique

si on veut les ID dans l'ordre, on trie dans l'ordre croissant la colonne C
on trie dans l'ordre croissant la colonne TRI

RyuAutodidacte · 4 Octobre 2023

bof à dit:
mon référentiel d'indexation pourrait bien évoluer en une douzaine d'items voire plus...

il faudra juste mettre à jour la formule EQUIV que j'ai donné sur le post 6

De cette manière c'est le filtre automatique qui fera le travail (solution sans Macros)

bof · 4 Octobre 2023

Oui c'est bien ça.
C'est parfait.
A+

CISCO · 4 Octobre 2023

Bonsoir

Encore une autre possibilité :
Dans le ruban, Données
Trier
Colonne B
A droite, Liste personnalisée

Complètement à droite, Ajouter
OK

Si tu tiens à garder l'ancienne liste, il suffit de travailler sur de nouvelles colonnes contenant les valeurs.

@ plus

CISCO · 4 Octobre 2023

Rebonsoir

Comme la plage H$2:H$6 porte le nom Critères, en utilisant la méthode précédente, on peut faire comme suit :

@ plus

bof · 5 Octobre 2023

Bonjour,
Ça ne va pas coller dans mon contexte (parce que je tiens absolument à finaliser mon tri par macro) mais ça me fera une petite piqure de rappel : Je ne pense jamais assez aux listes personnalisées.
Merci.
A+

CISCO · 5 Octobre 2023

Bonjour

Lorsque j'utilise le nom Critères, au lieu d'écrire E, P, M..., j'obtiens la colonne B dans l'ordre alphabétique, et pas dans l'ordre E, P, M...

@ plus

RyuAutodidacte · 5 Octobre 2023

bof à dit:
Bonjour,
Ça ne va pas coller dans mon contexte (parce que je tiens absolument à finaliser mon tri par macro) mais ça me fera une petite piqure de rappel : Je ne pense jamais assez aux listes personnalisées.
Merci.
A+

Bonjour @bof ,

Par macro, on peut le faire comme cela :

VB:

Sub Tri()
Dim DL As Long, Plage As Range
    ' PS le critere trie est a mettre dans le code a CustomOrder => CustomOrder:="E,P,M,X,G"
    ' Il faut bien cibler la feuille et la plage dans le code
    With Sheets(1)
        DL = .Columns("A:C").Find("*", SearchOrder:=xlByRows, searchdirection:=xlPrevious).Row  'Derniere ligne de la colonne A:C
        Set Plage = .Range("A2:C" & DL)
        Application.ScreenUpdating = False
        With .Sort
            .SortFields.Clear
            .SortFields.Add Key:=Plage.Columns.Item(2), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="E,P,M,X,G", DataOption:=xlSortNormal ' Tri sur la 2eme colonne de la plage
            .SortFields.Add Key:=Plage.Columns.Item(3), Order:=xlAscending, DataOption:=xlSortNormal  ' Tri sur la 3eme colonne de la plage
            .SetRange Plage: .Header = xlYes: .MatchCase = False: .Orientation = xlTopToBottom: .SortMethod = xlPinYin: .Apply
        End With
    End With
        Application.ScreenUpdating = True
        Set Plage = Nothing
End Sub


' code pour le test afin de remettre la donnée rapidement
Sub RecoverData()
    VA = Feuil2.Cells(1).CurrentRegion.Value
    Feuil1.Cells(1).Resize(UBound(VA), UBound(VA, 2)).Value = VA
End Sub

RyuAutodidacte · 5 Octobre 2023

Re une petite variante permettant de modifier ses paramètres de tri en évitant d'aller dans le cœur du code (cela évite de faire une erreur) :

VB:

Sub Tri()
Dim DL As Long, Plage As Range

    ' La variable "ParamTri" "E,P,M,X,G" pour mettre les criteres de Tri si ils viennent à changer
    ParamTri = "E,P,M,X,G"
  
    ' Il faut bien cibler la feuille et la plage dans le code
    With Sheets(1)
        DL = .Columns("A:C").Find("*", SearchOrder:=xlByRows, searchdirection:=xlPrevious).Row  'Derniere ligne de la colonne A:C
        Set Plage = .Range("A2:C" & DL)
        Application.ScreenUpdating = False
        With .Sort
            .SortFields.Clear
            .SortFields.Add Key:=Plage.Columns.Item(2), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=CVar(ParamTri), DataOption:=xlSortNormal ' Tri sur la 2eme colonne de la plage
            .SortFields.Add Key:=Plage.Columns.Item(3), Order:=xlAscending, DataOption:=xlSortNormal  ' Tri sur la 3eme colonne de la plage
            .SetRange Plage: .Header = xlYes: .MatchCase = False: .Orientation = xlTopToBottom: .SortMethod = xlPinYin: .Apply
        End With
    End With
        Application.ScreenUpdating = True
        Set Plage = Nothing
End Sub

Il est possible d'inverser ces 2 lignes selon le résultat voulu :

VB:

            .SortFields.Add Key:=Plage.Columns.Item(3), Order:=xlAscending, DataOption:=xlSortNormal  ' Tri sur la 3eme colonne de la plage
            .SortFields.Add Key:=Plage.Columns.Item(2), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=CVar(ParamTri), DataOption:=xlSortNormal ' Tri sur la 2eme colonne de la plage

CISCO · 5 Octobre 2023

Bonsoir

J'avais essayé avec l'enregistreur de macro... mais comme je ne voyais pas dans le code VBA où était défini E, P, M, X, G, j'ai abandonné...
Merci RyuAutodidacte

@ plus

XL 2016 INDEX et/ou EQUIV

bof

XLDnaute Occasionnel

Pièces jointes

RyuAutodidacte

CISCO

XLDnaute Barbatruc

bof

XLDnaute Occasionnel

RyuAutodidacte

XLDnaute Impliqué

bof

XLDnaute Occasionnel

RyuAutodidacte

XLDnaute Impliqué

Pièces jointes

RyuAutodidacte

XLDnaute Impliqué

bof

XLDnaute Occasionnel

CISCO

XLDnaute Barbatruc

CISCO

XLDnaute Barbatruc

bof

XLDnaute Occasionnel

CISCO

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

Pièces jointes

RyuAutodidacte

XLDnaute Impliqué

CISCO

XLDnaute Barbatruc

Discussions similaires