XL 2021 Trier tableau

J

julienha

XLDnaute Occasionnel
Bonjour,

Dans le fichier joint, j'aimerais trier le tableau A1:L19 (avec la fonction trier par éventuellement) avec les critères ci-dessous:
- la colonne L en ordre décroissant si toutes les valeurs de la colonne K sont égales à "Put"
- la colonne L en ordre croissant si toutes les valeurs de la colonne K sont égales à "Call"
- sinon trier la colonne J en ordre décroissant

Merci par avance
 

Pièces jointes

  • trier.xlsm
    18.8 KB · Affichages: 13
Trier par date Trier par votes
chris

chris

XLDnaute Barbatruc
RE
Par formule, je n'ai pas trouvé en une formule

On peut utiliser FILTRE sur le 1er résultat mais ce n'est pas idéal d'avoir 2 tableaux...

Sinon possible avec PowerQuery intgéré à Excel mais il faut actualiser manuellement ou par VBA
 
Vote positif 0 Vote négatif
J

julienha

XLDnaute Occasionnel
job75 à dit:
Bonjour julienha, Gégé-45550,

Pour ceux dont la version Excel n'accepte pas la fonction TRIER voici une solution VBA :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With Range("A1:L" & Application.Match([9^9], [A:A]))
    .Columns(13).Insert xlToRight 'colonne auxiliaire
    .Columns(13) = "=(ROW()>1)*(RC[-2]<>""Put"")"
    .Columns(13) = .Columns(13).Value 'supprime les formules
    If Application.Sum(.Columns(13)) = 0 Then
        .Sort .Columns(12), xlDescending, Header:=xlYes
    Else
        .Columns(13) = "=(ROW()>1)*(RC[-2]<>""Call"")"
        .Columns(13) = .Columns(13).Value 'supprime les formules
        If Application.Sum(.Columns(13)) = 0 Then
            .Sort .Columns(12), xlAscending, Header:=xlYes
        Else
            .Sort .Columns(10), xlDescending, Header:=xlYes
        End If
    End If
    .Columns(13).Delete xlToLeft
End With
Application.EnableEvents = True 'réactive les évènements
End Sub
La macro est dans le code de la feuille et se déclenche quand on modifie une cellule quelconque.

A+
Cliquez pour agrandir...
merci bcp, votre macro fonctionne parfaitement
job75 à dit:
Bonjour julienha, Gégé-45550,

Pour ceux dont la version Excel n'accepte pas la fonction TRIER voici une solution VBA :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With Range("A1:L" & Application.Match([9^9], [A:A]))
    .Columns(13).Insert xlToRight 'colonne auxiliaire
    .Columns(13) = "=(ROW()>1)*(RC[-2]<>""Put"")"
    .Columns(13) = .Columns(13).Value 'supprime les formules
    If Application.Sum(.Columns(13)) = 0 Then
        .Sort .Columns(12), xlDescending, Header:=xlYes
    Else
        .Columns(13) = "=(ROW()>1)*(RC[-2]<>""Call"")"
        .Columns(13) = .Columns(13).Value 'supprime les formules
        If Application.Sum(.Columns(13)) = 0 Then
            .Sort .Columns(12), xlAscending, Header:=xlYes
        Else
            .Sort .Columns(10), xlDescending, Header:=xlYes
        End If
    End If
    .Columns(13).Delete xlToLeft
End With
Application.EnableEvents = True 'réactive les évènements
End Sub
La macro est dans le code de la feuille et se déclenche quand on modifie une cellule quelconque.

A+
Cliquez pour agrandir...
Merci bcp pour l'aide, votre macro fonctionne très bien.
Est-ce possible de l'adapter au tableau ci-joint avec les critères de tri ci-dessous:
- La colonne AF en ordre décroissant si toutes les valeurs de la colonnes AE="Put"
- La colonne AF en ordre croissant si toutes les valeurs de la colonnes AE="Call"
- La colonne AG en date décroissante si les dates sont différentes, les unes des autres
- sinon trier la colonne AD en ordre décroissant
 

Pièces jointes

  • New_test.xlsm
    27.1 KB · Affichages: 5
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour julienha,

Chez moi sur Excel 2019 la fonction BDP n'existe pas, elle renvoie l'erreur #NOM?, je ne peux pas tester.

Par ailleurs les critères de tri sont incohérents.

Que faire avec le critère de tri sur AG si l'on tri sur AF ou AD ? On l'ignore ou il est prioritaire ?

A+
 
Vote positif 0 Vote négatif
chris

chris

XLDnaute Barbatruc
RE
julienha à dit:
merci bcp mais du coup les critères de tri ne fonctionne plus:
- car les valeurs de la colonne K sont égales à "Put" et la colonne strike ("L" ds le tableau structuré) n'est pas en ordre décroissant
Cliquez pour agrandir...

C'est sûr que dès qu'on ne respecte plus les règles des tableaux structurés les galères commencent...
VB: 
=TRIER(Tableau1;SI(OU(NB.SI(Tableau1[C/P];"Put")=NB.SI(Tableau1[C/P];"> ");NB.SI(Tableau1[C/P];"Call")=NB.SI(Tableau1[C/P];"> "));12;10);SI(NB.SI(Tableau1[C/P];"Call")=NB.SI(Tableau1[C/P];"> ");-1;1))

Je vois que le tableau source et la demande ont évolué au fil des posts...
 
Dernière édition:
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bon je considère que vous avez donné les 4 critères de tri dans l'ordre de leurs priorités, alors utilisez :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With Range("A1:AG" & Application.Match([9^9], [A:A]))
    .Columns(34).Insert xlToRight 'colonne auxiliaire
    .Columns(34) = "=(ROW()>1)*(RC[-3]<>""Put"")"
    .Columns(34) = .Columns(34).Value 'supprime les formules
    If Application.Sum(.Columns(34)) = 0 Then _
        .Sort .Columns(32), xlDescending, Header:=xlYes: GoTo 1
    .Columns(34) = "=(ROW()>1)*(RC[-3]<>""Call"")"
    .Columns(34) = .Columns(34).Value 'supprime les formules
    If Application.Sum(.Columns(34)) = 0 Then _
        .Sort .Columns(32), xlAscending, Header:=xlYes: GoTo 1
    .Columns(34) = "=(ROW()>1)*(RC[-1]<>R2C[-1])"
    .Columns(34) = .Columns(34).Value 'supprime les formules
    If Application.Sum(.Columns(34)) > 0 Then _
        .Sort .Columns(33), xlDescending, Header:=xlYes: GoTo 1
    .Sort .Columns(30), xlDescending, Header:=xlYes
1   .Columns(34).Delete xlToLeft
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Je joins le fichier malgré les #NOMS? chez moi (j'ai pu tester en les supprimant).

En Feuil2 j'ai supprimé tous les Feuil2! dans les formules, ils gênaient le tri sur la colonne AD.
 

Pièces jointes

  • New_test(1).xlsm
    27.8 KB · Affichages: 3
Vote positif 0 Vote négatif
J

julienha

XLDnaute Occasionnel
job75 à dit:
Bon je considère que vous avez donné les 4 critères de tri dans l'ordre de leurs priorités, alors utilisez :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With Range("A1:AG" & Application.Match([9^9], [A:A]))
    .Columns(34).Insert xlToRight 'colonne auxiliaire
    .Columns(34) = "=(ROW()>1)*(RC[-3]<>""Put"")"
    .Columns(34) = .Columns(34).Value 'supprime les formules
    If Application.Sum(.Columns(34)) = 0 Then _
        .Sort .Columns(32), xlDescending, Header:=xlYes: GoTo 1
    .Columns(34) = "=(ROW()>1)*(RC[-3]<>""Call"")"
    .Columns(34) = .Columns(34).Value 'supprime les formules
    If Application.Sum(.Columns(34)) = 0 Then _
        .Sort .Columns(32), xlAscending, Header:=xlYes: GoTo 1
    .Columns(34) = "=(ROW()>1)*(RC[-1]<>R2C[-1])"
    .Columns(34) = .Columns(34).Value 'supprime les formules
    If Application.Sum(.Columns(34)) > 0 Then _
        .Sort .Columns(33), xlDescending, Header:=xlYes: GoTo 1
    .Sort .Columns(30), xlDescending, Header:=xlYes
1   .Columns(34).Delete xlToLeft
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Je joins le fichier malgré les #NOMS? chez moi (j'ai pu tester en les supprimant).

En Feuil2 j'ai supprimé tous les Feuil2! dans les formules, ils gênaient le tri sur la colonne AD.
Cliquez pour agrandir...
Tout d'abord merci infiniment.
Désolé pour les formules BDP, j'ai oublié de les retirer.
En fait, le tri sur AG devient prioritaire uniquement si les dates en AG sont différentes.
Je vous renvoie le fichier sans les formules BDP.
Merci encore
 

Pièces jointes

  • Test_rout.xlsm
    27.2 KB · Affichages: 3
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour julienha,

1) Vos dates en colonne AG n'étaient pas de vraies dates (nombres) mais des textes.

Dans le fichier joint je les ai converties en les revalidant.

2)
julienha à dit:
En fait, le tri sur AG devient prioritaire uniquement si les dates en AG sont différentes.
Cliquez pour agrandir...
Si vous voulez dire que le tri de la colonne AG doit se faire même avec des "Put" ou des "Call" sur toute la colonne AE il faut mettre les 4 lignes qui le concernent en 1er :
VB: 
    .Columns(34) = "=(ROW()>1)*(RC[-1]<>R2C[-1])"
    .Columns(34) = .Columns(34).Value 'supprime les formules
    If Application.Sum(.Columns(34)) > 0 Then _
        .Sort .Columns(33), xlDescending, Header:=xlYes: GoTo 1
A+
 

Pièces jointes

  • Test_rout(1).xlsm
    27.2 KB · Affichages: 15
Vote positif 0 Vote négatif
J

julienha

XLDnaute Occasionnel
job75 à dit:
Bonjour julienha,

1) Vos dates en colonne AG n'étaient pas de vraies dates (nombres) mais des textes.

Dans le fichier joint je les ai converties en les revalidant.

2)

Si vous voulez dire que le tri de la colonne AG doit se faire même avec des "Put" ou des "Call" sur toute la colonne AE il faut mettre les 4 lignes qui le concernent en 1er :
VB: 
    .Columns(34) = "=(ROW()>1)*(RC[-1]<>R2C[-1])"
    .Columns(34) = .Columns(34).Value 'supprime les formules
    If Application.Sum(.Columns(34)) > 0 Then _
        .Sort .Columns(33), xlDescending, Header:=xlYes: GoTo 1
A+
Cliquez pour agrandir...
Merci bcp. Ca fonctionne très bien mise à part les dates. Je reçevrais tjs les dates en AG avec une formule (via Bloomberg), du coup 2 possibilité peut être:
- soit convertir automatiquement avec la macro, la colonne AG en vraies dates
- soit: si les dates en AG sont différentes, trier la colonne AB en ordre décroissant (tri prioritaire)

Merci milles fois
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour julienha,

Vous utilisez une formule en AG, utilisez-la pour convertir le texte en nombre, en AG2 :
Code: 
=SI(B2="";"";SIERREUR(--BDP(V2;"MATURITY");""))
ou peut-être plus simplement :
Code: 
=SIERREUR(--BDP(V2;"MATURITY");"")
Et mettez la colonne AG au format Date.

A+
 
Vote positif 0 Vote négatif
J

julienha

XLDnaute Occasionnel
job75 à dit:
Bonjour julienha,

Vous utilisez une formule en AG, utilisez-la pour convertir le texte en nombre, en AG2 :
Code: 
=SI(B2="";"";SIERREUR(--BDP(V2;"MATURITY");""))
ou peut-être plus simplement :
Code: 
=SIERREUR(--BDP(V2;"MATURITY");"")
Et mettez la colonne AG au format Date.

A+
Cliquez pour agrandir...
merci. Dernier point, les données du range A2:AG19 s'actualisent manuellement en 2 étapes:
- les données de A2:AG19 sont effacées
- puis collé de nouvelles données
Quand j'efface les données de A2:AG19, j'ai le message d'erreur ci-joint:
Erreur d'execution '13'
Icompatibilité de type

Merci bcp
 

Pièces jointes

  • 2023-07-24 18_05_49-EMSX.png
    2023-07-24 18_05_49-EMSX.png
    6.8 KB · Affichages: 8
Vote positif 0 Vote négatif

Discussions similaires

B
  • Question
Microsoft 365 trier dans Fonction Filtre Excel
Réponses
2
Affichages
117
AtTheOne
AtTheOne
R
  • Résolu(e)
XL 2021 Trier par rang
Réponses
7
Affichages
273
Phil69970
Phil69970
A
  • Question
Microsoft 365 Déplacer sans trier
Réponses
6
Affichages
165
sylvanu
sylvanu
F
  • Question
Microsoft 365 tri dans Excell
2
Réponses
19
Affichages
445
JHA
J
G
  • Résolu(e)
XL 2021 Trier sans tenir compte des cellule vides mais avec formule
Réponses
4
Affichages
476
GregN
G
S
  • Résolu(e)
XL 2019 Trier un tableau en fonction de critères définis
Réponses
6
Affichages
351
sum01
S
A
  • Question
XL 2010 Enregistrer en PDF
Réponses
2
Affichages
175
Appo1985
A
B
  • Question
XL 2019 trouver le plus grand numéro
Réponses
11
Affichages
276
Blafi
B
L
  • Question
Microsoft 365 Trier des données d'une colonne dans une autre
Réponses
2
Affichages
278
Langrand
L
lestoiles1
  • Question
XL 2013 Bouton pour remplir le tableau (sans cellules vide) et trier les commnades
Réponses
3
Affichages
391
piga25
piga25

Membres actuellement en ligne

13 membres et 104 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 088
Messages
2 116 089
Membres
112 658
dernier inscrit
doro 76