Microsoft 365 Classement de données de colonne par ordre croissant

J

JHA

XLDnaute Barbatruc

• 4 Février 2021

• #2

Bonjour à tous,

Un essai en pièce jointe

VB:

=SI(MOD(COLONNE();2)=0;GRANDE.VALEUR(SI(MOD(COLONNE($A$1:$F$1);2)=0;$A$1:$F$1);COLONNE()/2);INDEX($A$1:$F$1;;EQUIV(GRANDE.VALEUR(SI(MOD(COLONNE($A$1:$F$1);2)=0;$A$1:$F$1);(COLONNE()+1)/2);$A$1:$F$1;0)-1))

JHA

 

Pièces jointes

• Classeur Lucho63.xlsx

  9.2 KB · Affichages: 10

Vote positif 0 Vote négatif

L

Lucho63

XLDnaute Nouveau

• 4 Février 2021

• #3

Merci JHA, mais je veux que les données classées soient inscrites à droite comme sur le fichier joint.
Peux-tu me modifier cela ?
Je vois qu'il est inscrit VB au dessus du code, est-ce un code en langage VBA ?

 

Pièces jointes

• Classeur Lucho63.xlsx

  11.5 KB · Affichages: 4

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 4 Février 2021

• #4

Bonjour à tous,

A essayer

JHA

 

Pièces jointes

• Classeur Lucho63 (1).xlsx

  10.7 KB · Affichages: 4

Vote positif 0 Vote négatif

Patrice33740

XLDnaute Impliqué

• 4 Février 2021

• #5

Bonjour,

Sans formule matricielle :

 

Pièces jointes

• Lucho63.xlsx

  10 KB · Affichages: 10

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 5 Février 2021

• #6

Bonjour Lucho63, le fil,

Dans ton post #3 : « Je vois qu'il est inscrit VB au dessus du code, est-ce un code en langage VBA ? »

* Le langage de programmation des applications Office est bien le VBA : Visual Basic for Applications.

* Le VB orange que tu as vu est mis par la balise « CODE=vb » ; on l'utilise pour du code VBA, mais c'est pas obligé ; par exemple, certains l'utilisent pour mettre une formule Excel ; et c'est justement le cas dans le post #2 de JHA : c'est bien une formule Excel et pas du VBA ; par exemple, il y a =SI( et pas If ; il y a COLONNE() et pas Column ; il y a MOD(a;b) et pas a Mod b ; il y a GRANDE.VALEUR() qui est une fonction Excel que VBA ne connaît pas ; à toi de trouver les autres indices... ​

soan

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 5 Février 2021

• #7

Bonjour à tous,

Les deux solutions proposées ne donne pas le bon résultat en cas d'égalité.
Ci joint une seule formule matricielle qui semble donner un résultat plus cohérent.
En "G1":

VB:

=SI(MOD(COLONNE();2)=0;ENT(GRANDE.VALEUR(SI(MOD(COLONNE($A$1:$F$1);2)=0;$A$1:$F$1+COLONNE($A$1:$F$1)/10^9);(COLONNE()-6)/2));INDEX($A$1:$F$1;;EQUIV(GRANDE.VALEUR(SI(MOD(COLONNE($A$1:$F$1);2)=0;$A$1:$F$1+(COLONNE($A$1:$F$1)/10^9));(COLONNE()-5)/2);$A$1:$F$1+(COLONNE($A$1:$F$1)/10^9);0)-1))

copier vers la droite.

JHA

 

Pièces jointes

• Classeur Lucho63 (2).xlsx

  10.8 KB · Affichages: 7

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 5 Février 2021

• #8

Bonjour le forum, JHA

Dans la même idée que l'exemple de Lucho, j'essaie de modifier la formule pour l'adapter à mon fichier. j'ai fait un exemple et la formule matricielle est tellement complexe que je suis complètement perdu et incapable de la modifier et l'adapter.
JHA, serait il possible de m'aider ?
Merci

 

Pièces jointes

• Exemple_050221.xlsx

  11.7 KB · Affichages: 5

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 5 Février 2021

• #9

Bonjour à tous,

Je reconnais la formule n'est pas simple du tout et il y a certainement mieux.

VB:

=SI(MOD(COLONNE();2)=1;GRANDE.VALEUR(SI(MOD(COLONNE($C$12:$J$12);2)=0;$C$12:$J$12+COLONNE($C$12:$J$12)/10^9);(COLONNE()-5)/2);INDEX($C$12:$J$12;;EQUIV(GRANDE.VALEUR(SI(MOD(COLONNE($C$12:$J$12);2)=0;$C$12:$J$12+(COLONNE($C$12:$J$12)/10^9));(COLONNE()-4)/2);$C$12:$J$12+(COLONNE($C$12:$J$12)/10^9);0)-1))

JHA

 

Pièces jointes

• Exemple_050221.xlsx

  12.5 KB · Affichages: 5

Vote positif 1 Vote négatif

C

Collins

XLDnaute Occasionnel

• 5 Février 2021

• #10

Sincèrement merci
c'est du rapide et du concret. Là, tu peux le dire la formule n'est vraiment pas simple mais elle est super efficace et c'est tout ce que je demande..
bonne journée

 

Vote positif 0 Vote négatif

L

Lucho63

XLDnaute Nouveau

• 6 Février 2021

• #11

Bonjour,
Merci beaucoup pour votre aide.
Je veux aussi supprimer toutes les données en orange lorsqu'elles non pas lieu d'être.

 

Pièces jointes

• Essai.xlsx

  10.6 KB · Affichages: 3

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 6 Février 2021

• #12

Bonjour @Lucho63,

Je crois que tu as zappé mon post #6.

soan

 

Vote positif 0 Vote négatif

L

Lucho63

XLDnaute Nouveau

• 6 Février 2021

• #13

Bonsoir,
Je ne vois pas ce que j'ai zappé ! Soan
Eclaire moi

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 6 Février 2021

• #14

Bonsoir Lucho,

relis mon post #6 : tu verras que j'ai répondu à ta question de ton post #3.

(tu peux cliquer sur le lien bleu pour aller dessus)

soan

 

Vote positif 0 Vote négatif