XL 2021 Trier tableau

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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 par date Trier par votes
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
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

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

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

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

Vote positif 0 Vote négatif
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
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
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: 15
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

jcf6464
  • Résolu(e)
Microsoft 365 Trier sur colonnes disjointe sur 12 feuilles
Réponses
6
Affichages
243
jcf6464
jcf6464
A
  • Résolu(e)
XL 2019 bouton pour trier un tableau
Réponses
9
Affichages
192
ANTONY34200
A
rastafouette
  • Résolu(e)
XL 2021 tri par lignes
2
Réponses
19
Affichages
834
rastafouette
rastafouette
S
  • Question Question
Microsoft 365 Extraire dans une nouvelle feuille les cellules non vide d'une colonne
2
Réponses
15
Affichages
396
Gégé-45550
Gégé-45550
A
  • Question Question
XL 2019 alignement colonnes excel
Réponses
5
Affichages
147
sylvanu
sylvanu
B
  • Question Question
Microsoft 365 trier dans Fonction Filtre Excel
Réponses
2
Affichages
217
AtTheOne
AtTheOne
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
494
Dranreb
Dranreb
MLGARIN
  • Question Question
Microsoft 365 Associer une variable à une couleur dans des graphiques excel à plusieurs feuilles
Réponses
13
Affichages
552
Hecatonchire
H
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
846
MATLEA
M
R
  • Résolu(e)
XL 2021 Trier par rang
Réponses
7
Affichages
417
Phil69970
Phil69970
A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
161
agnesd
A
F
  • Question Question
Microsoft 365 tri dans Excell
2
Réponses
19
Affichages
689
JHA
J
S
  • Résolu(e)
Microsoft 365 Formule TRIER
Réponses
3
Affichages
163
sayesaye22
S
G
  • Résolu(e)
XL 2021 Trier sans tenir compte des cellule vides mais avec formule
Réponses
4
Affichages
591
GregN
G
S
  • Résolu(e)
XL 2019 Trier un tableau en fonction de critères définis
Réponses
6
Affichages
483
sum01
S
L
  • Question Question
Microsoft 365 Trier des données d'une colonne dans une autre
Réponses
2
Affichages
439
Langrand
L
G
  • Question Question
Microsoft 365 Formule Excel en fonction de plusieurs conditions
Réponses
3
Affichages
242
JHA
J
B
  • Question Question
XL 2019 trouver le plus grand numéro
Réponses
11
Affichages
566
Blafi
B
A
  • Question Question
XL 2010 Enregistrer en PDF
Réponses
2
Affichages
358
Appo1985
A
P
  • Résolu(e)
Microsoft 365 Suppression lignes par rapport à une date
2 3 4
Réponses
50
Affichages
895
pierrof
P
Retour