Valeur la plus grande

[hotsauce91]

Bonjour ou Re Bonjour,

Je chercher a rapproter le nom de la colonne qui a le total le plus grand.

J'ai joint un fichier exemple.

Je voudrais donc que soit affiché à la place des points d'intérogations, le nom de la colonne(tata,toto,tutu ou titi) mais aussi le nom de la colonne qui a le 2eme total le plus grd.

 

[Raja]

Re : Valeur la plus grande

Bonsoir,

Regarde dans ton fichier en retour ci-joint :

Pour les noms de la colonne, je n'ai pas bien compris ta demande. Que fait-on quand il y a doublon ?

 

[hotsauce91]

Re : Valeur la plus grande

merci pour la rapidité mais moi je veux pas le chiffre 🙂 ca je sais faire ^^ en fait je voudrais le nom de la colonne ...

 

[job75]

Re : Valeur la plus grande

Bonjour,

Formule en C11 à tirer vers le bas :

=INDEX($1:$1;EQUIV(GRANDE.VALEUR($5:$5;LIGNES(C$11:C11));$5:$5;0))

A+

 

[hotsauce91]

Re : Valeur la plus grande

merci beaucoup à vous 2 !

 

[FanExcel]

Re : Valeur la plus grande

Regarde ça

 

[hotsauce91]

Re : Valeur la plus grande

En fait il y a un petit souci.

Donc mon réel tableau plusieur totaux sont identique.

Et cette formule me meme nom de colonne si la valeur est identique au lieu de changer de nom ...

J'ai modifié mon fichier "exemple" pour plus de comprehension 🙂

 

[job75]

Re : Valeur la plus grande

Re,

Bien sûr, le traitement des doublons par formule ce n'est jamais simple.

Je laisse ça à plus fort, Monique ou Tibo.

A+

 

[hotsauce91]

Re : Valeur la plus grande

merci quand meme, si d'autre on une solution qu'il n'hésite pas ! 🙂

Ca me dérange pas de passer par VBA ... si il y a des propositions !

 

[CISCO]

Re : Valeur la plus grande

Bonjour

Une possibilité en pièce jointe, en trichant un peu, un tout petit peu...

@ plus

 

[hotsauce91]

Re : Valeur la plus grande

quesque tu appele tricher un tout petit peu ? 🙂

 

[job75]

Re : Valeur la plus grande

Re,

Salut CISCO, pas regardé ta solution encore, en voici une :

Sub GrandeValeur()
Application.ScreenUpdating = False
Range("B1:E5").Copy
Range("G1").PasteSpecial Paste:=xlValues, Transpose:=True
Selection.Sort Key1:=Range("K1"), Order1:=xlDescending, Header:=xlNo
Range("C11:C13") = Range("G1:G3").Value
Range("G:K").ClearContents
Range("A1").Select
End Sub

Fichier joint.

A+

 

[CISCO]

Re : Valeur la plus grande

tricher un tout petit peu ? 🙂

Pour qu'excel ne reste pas "bloqué" sur le premier ex aequo rencontré, j'additionne aux totaux COLONNE/10^10. Ainsi, il ni a plus d'ex aequo🙂, et les résultats ne sont pas assez modifiés pour changer le classement. De plus cela ne se voit pas au niveau de l'affichage. Par précaution, on rajoute quand il le faut "ex aequo" dans les résultats.

@ plus

 

[hotsauce91]

Re : Valeur la plus grande

Merci à vous deux. Job75 ca marche tres bien mais pourrais tu m'expliquer les quelques lignes de codes ?

A bientot

 

[job75]

Re : Valeur la plus grande

Bonjour hotsauce91, le fil,

J'ai mis des commentaires :

Sub GrandeValeur()
Application.ScreenUpdating = False [COLOR="Red"]'fige l'écran[/COLOR]
Range("B1:E5").Copy [COLOR="Red"]'copie le tableau[/COLOR]
Range("G1").PasteSpecial Paste:=xlValues, Transpose:=True [COLOR="Red"]'puis par collage spécial le transpose et le colle sur G1[/COLOR]
Selection.Sort Key1:=Range("K1"), Order1:=xlDescending, Header:=xlNo [COLOR="Red"]'tri décroissant sur la colonne K[/COLOR]
Range("C11:C13") = Range("G1:G3").Value [COLOR="Red"]'copie les valeurs de G1:G3[/COLOR]
Range("G:K").ClearContents [COLOR="Red"]'efface la copie du tableau[/COLOR]
Range("A1").Select
End Sub

Pour visualiser les différentes étapes, intercaler End dans la macro.

A+