XL 2013 Classement automatique

[RedHook]

Bonjour,

J'aimerais créer un tableau comparatif automatique pour, par exemple, des offres d'entreprises.

J'ai réussi a créer le classement automatique avec la fonction RANG dans le tableau 1. Mais pour la suite, je n'arrive pas à trier automatiquement les résultats pour les avoir dans l'ordre croissant comme dans le tableau 2. Pouvez-vous m'aider svp ?

https://www.hostingpics.net/viewer.php?id=527179Capture.jpg

 

[Patrice33740]

Bonjour,

Dans un tableau excel, il ne faut jamais laisser de ligne vide !
(pour avoir de l'espace entre les informations, on peut simplement augmenter la hauteur de ligne)

 

[Modeste geedee]

Bonsour®

J'ai réussi a créer le classement automatique avec la fonction RANG dans le tableau 1. Mais pour la suite, je n'arrive pas à trier automatiquement les résultats pour les avoir dans l'ordre croissant

avec prise en compte des ex-æquo

 

[RedHook]

Merci beaucoup, c'est exactement ce que je recherchais mais je constate quelque chose qu'il est peut-être possible de corriger. Toujours en se basant sur le même tableau, si par exemple, il n'y a que l'entreprise 1 et l'entreprise 2 avec des montants, les deux autres sont quand même prises en compte et le classement n'est pas optimal puisqu'il classe les entreprises 3 et 4 sans montants en début de classement. Il faudrait que les cellules contenant aucune donnée ou un 0 ne soient pas prises en considération. Est-ce possible ?

Je sais qu'il suffirait de supprimer les lignes (8 et 10 dans ce cas présent) mais si je supprime et que par la suite, une entreprise devait être ajoutée, je devrais alors à nouveau ajouter des formules, etc. ce que j'aimerais éviter.

https://www.hostingpics.net/viewer.php?id=786304Capture.png

 

[Modeste geedee]

Bonsour®

Il faudrait que les cellules contenant aucune donnée ou un 0 ne soient pas prises en considération. Est-ce possible ?

Je sais qu'il suffirait de supprimer les lignes (8 et 10 dans ce cas présent) mais si je supprime et que par la suite, une entreprise devait être ajoutée, je devrais alors à nouveau ajouter des formules, etc. ce que j'aimerais éviter.

Ce qu'il faut éviter, c'est comme dit précédemment : pas de lignes vides dans un tableau de données...

Il faudrait, il suffirait, je devrais, j'aimerais...

pour automatiser cela nécessite de l'organisation et de la rigueur....
moyennant quelques réarrangements, nommage de plage dynamiques et gestion d'erreurs :

 

[RedHook]

J'ai essayé de copier et d'adapter les fonctions dans un autre fichier Excel pour un classement automatique mais tout ce que j'arrive à faire, c'est retomber sur la première variante avec le classement des lignes vides en position 1 avec le 0 dans le prix.

Je vais donc rester sur la première option.

Merci quand même

 

[CISCO]

Bonsoir à tous

On peut aussi faire comme ça, mais c'est bien compliqué, à cause des lignes vides !!!

@ plus

 

[Modeste geedee]

Bonsour®

Bonsoir à tous

On peut aussi faire comme ça, mais c'est bien compliqué, à cause des lignes vides !!!

@ plus

et puis tu n'as pas traité les ex-aequo

on peut faire comme ceci aussi
brute d'enregistreur

Sub Macro2()
'
' Macro2 Macro
Application.ScreenUpdating = False
    Columns("A:A").Select
    Selection.UnMerge
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("A3:E14").Select
    Selection.Copy
    Range("N3").Select
    ActiveSheet.Paste
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range( _
        "Q4:Q14"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Classement").Sort
        .SetRange Range("N3:R14")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A17:E25").Select
    Selection.ClearContents
    Range("N3:R14").Select
    Selection.Copy

    Range("A17").Select
    ActiveSheet.Paste
    Range("N:Q").Clear
End Sub