Valeur apparaissant le plus

Bonsoir a tous,

je souhaiterais pouvoir identifier les valeurs revenant le plus dans une colonne.

aussi la fonction est il me semble =NB.SI.ENS

seulement je voudrais pouvoir faire remonter disons les 5 plus grandes valeurs

1) la valeur apparaissant le plus dans la colonne A

2) la 2ème valeur apparaissant le plus dans la colonne A

3)la 3ème valeur apparaissant le plus dans la colonne A

etc

une idée de comment faire cela svp?

merci par avance

Bonjour,

un TCD (tableau croisé dynamique) peut te sortir un top 5 (ou autre) sans formule.
Mais sans fichier, pas d'exemple...
eric

Bonjour à tous,

D'accord avec eriiic, un TCD est la solution la plus efficace.

Un exemple cependant avec formule matricielle si je me suis pas planté :

=MAX(SI(NB.SI(A1:A21;A$1:A$21)<D1;NB.SI(A1:A21;A$1:A$21))) 'Pour la Xième occurrence
=INDEX($A$1:$A$21;MAX(SI(NB.SI($A$1:$A$21;$A$1:$A$21)=D2;LIGNE($A$1:$A$21);""))) 'Pour la correspondance à l'occurence

Avec le fichier joint pour y voir plus clair.

Cdlt,

bonsoir

un exercice / contribution sur le fichier d'Ergotamine

cordialement

exemple avec un TCD
eric

Bonjour @ tous,

par formules et par Power Query

Voir PJ

Cordialement

merci à tous pour vos retours,

je vais éplucher vos solutions!

merci

je vous remercie tous mais j'aurais du le préciser avant, il s'agit de chiffre et non de lettre

aussi j'ai tenté la première approche d'ergotamine et cela ne fonctionne pas.

toutefois et comme le chiffre en question correspond à un id il me faudra au final pouvoir le remplacer par un nom

aussi peut être faudrait directement pouvoir faire cela via vba.

désolé, ma faute ...

Bonjour,

le TCD se moque que ce soit des nombres.
(les formules aussi sans doute)

Par contre ton fichier n'éclaire en rien ""il me faudra au final pouvoir le remplacer par un nom"
eric

j'ai tenté une premiere approche vba mais non concluante pour me retouner déja la valeur apparaissant le plus

Public Sub Count()
Dim Rng As Range
Dim WorkRng As Range
Set dic = CreateObject("scripting.dictionary")
On Error Resume Next
derlign = Worksheets("Positionning").Cells(Rows.Count, "A").End(xlUp).Row
WorkRng = Worksheets("Positionning").Range("A2:A" & derlign)
xMax = 0
xOutValue = ""
For Each Rng In WorkRng
    xValue = Rng.Value
    If xValue <> "" Then
        dic(xValue) = dic(xValue) + 1
        xCount = dic(xValue)
        If xCount > xMax Then
            xMax = xCount
            xOutValue = xValue
        End If
    End If
Next
MsgBox "The most common value is: " & xOutValue & " Appeared " & xMax & " Times"
End Sub

Bonjour @ tous,

il faudrait nous mettre un exemple de résultat escompté sur le fichier.

Voir PJ si cela te convient.

Cordialement

merci pour ce partage R@Chid,

cela se rapproche de ce que je souhaiterais sauf que les 5 premiers me suffirait et j'aimerais que cela puisse se remettre à jour avec une commande si possible

car ca serait pour mon tableau de bord

mais je retiens ton tableau tout de meme si j'ajoutais un suivi plus gobal pour tous les partenaires de ma base

Re,

oui je n'ai gardé que les 5 premières lignes, par contre je ne comprends pas que voulais-tu dire par Une commande ?

Si tu veux que cela soit actualisé, tu n'as qu'à faire une macro qui actualise le résultat lors d'une modification dans les tableaux sources ou bien une fois que la feuille est activée.

Cordialement

parfait merci à vous

deux dernières question et j'arrête de vous embêter

Je n'ai jamais utilisé powerquery et je trouve bien les requetes et comprends comment cela fonctionne

Néanmoins

1) peut on utiliser les meme sources bod Partner + Bod Positionning pour générer le tableau de 5 lignes + 'autre complet si je venais a faire un suivi statistique ou meme géographique?

2) comment via vba demander a actualisé telle ou telle requête?

merci à vous en tout cas

grand merci

Re,

Darkangel a écrit :

1) peut on utiliser les meme sources bod Partner + Bod Positionning pour générer le tableau de 5 lignes + 'autre complet si je venais a faire un suivi statistique ou meme géographique?

Oui tout est possible mais sans voir le fichier je ne pourrais rien confirmer.

2) comment via vba demander a actualisé telle ou telle requête?

Private Sub Worksheet_Activate()
ActiveWorkbook.RefreshAll
End Sub

à copier dans le module de la Feuil1

Cordialement

Bonjour Merci à vous R@chid,

Je pense que j'ai réussi à savoir rajouter une requete dans powerquery de sorte à pouvoir générer soit le tableau de 5 premiers résultats soit le tableau global.

Merci pour la macro dont je prend bonne note.

Dernière question bête: comment indiquer à powerquery ou l'on veut afficher exactement le tableau souhaité?

merci pour tout.

bonne journée

@+

Bonjour @ tous,

Darkangel a écrit :

Dernière question bête: comment indiquer à powerquery ou l'on veut afficher exactement le tableau souhaité?

Cordialement

super merci à vous pour toute votre aide

désolé de devoir revenir à la charge mais l'option est grisée

une option à déloquer?