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: 7
Vote positif 0 Vote négatif

Discussions similaires

G
  • Résolu(e)
XL 2021 Trier sans tenir compte des cellule vides mais avec formule
Réponses
4
Affichages
120
GregN
G
C
  • Résolu(e)
XL 2019 Ecart entre dates puis tri décroissant
Réponses
3
Affichages
170
cotignac
C
P
  • Question
XL 2019 trier des cellules d'une ligne
Réponses
2
Affichages
141
Pseudo
P
B
  • Question
XL 2021 Trier sous excel
Réponses
3
Affichages
166
bourcier1952
B
J
  • Question
XL 2021 Fonction trier
Réponses
9
Affichages
499
danielco
D
Temjeh
  • Résolu(e)
XL 2021 Trie colonne date
Réponses
12
Affichages
242
Temjeh
Temjeh
xUpsilon
  • Résolu(e)
Microsoft 365 Trier sur le deuxième champ dans un TCD
2
Réponses
15
Affichages
417
xUpsilon
xUpsilon
S
  • Résolu(e)
Microsoft 365 Excel recopier des données d'un tableau dans un autre onglet sans macro
Réponses
5
Affichages
531
Sissou71
S
G
  • Résolu(e)
XL 2019 Trier par ordre alphabétique de gauche à droite
Réponses
7
Affichages
219
Goffy
G
S
  • Question
Power Query tri powerquery
Réponses
9
Affichages
253
JFL_XLD
J

Membres actuellement en ligne

17 membres et 110 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
312 211
Messages
2 086 286
Membres
103 170
dernier inscrit
HASSEN@45