XL 2013 la valeur la plus répété dans un tableau

[titooooo]

bonjour le forum

je veux que excel trouve la valeur la plus répété dans uns tableau et la met dans la cellule C3

 

[mapomme]

Bonsoir @titooooo,

Un essai de formule matricielle dans le fichier joint. Voir aussi la feuille Feuil2 en cas d'égalité d'apparition max de deux villes ou plus.

Formule matricielle en C3:

=SI(GRANDE.VALEUR(NB.SI(C4:D13;C4:D13);MAX(NB.SI(C4:D13;C4:D13)+1))=MAX(NB.SI(C4:D13;C4:D13));"doublons";INDEX(A1:D13;
ENT(MIN(SI(MAX(NB.SI(C4:D13;C4:D13))=NB.SI(C4:D13;C4:D13);LIGNE(C4:D13)+COLONNE(C4:D13)/100000)));
ARRONDI(100000*MOD(MIN(SI(MAX(NB.SI(C4:D13;C4:D13))=NB.SI(C4:D13;C4:D13);LIGNE(C4:D13)+COLONNE(C4:D13)/100000));1);0)))

attention!: le premier argument de INDEX est bien : A1: D13 et non C4: D13
remarque: la formule doit aussi fonctionner avec plus de deux colonnes

 

[job75]

Bonsoir titooooo, mapomme,

Une solution avec cette fonction VBA utilisée en C3 :

Function Maxi(r As Range)
Dim d As Object
Set d = CreateObject("Scripting.dictionary")
For Each r In r
    d(r.Value) = d(r.Value) + 1
Next
Maxi = Application.Max(d.items) 'fréquence max
Maxi = Application.Match(Maxi, d.items, 0) 'rang dans la liste
Maxi = Application.Index(d.keys, Maxi) 'Nom
End Function

A+

 

[job75]

Re,

Dans le résultat on peut indiquer la fréquence :

Function Maxi(r As Range)
Dim d As Object, n&
Set d = CreateObject("Scripting.dictionary")
For Each r In r
    d(r.Value) = d(r.Value) + 1
Next
n = Application.Max(d.items) 'fréquence max
Maxi = Application.Match(n, d.items, 0) 'rang dans la liste
Maxi = Application.Index(d.keys, Maxi) & " " & n 'Nom + n
End Function

Bonne nuit.

 

[BOISGONTIER]

Bonjour,

Fonction perso compatible MAC.

Donne la liste des mots et leur fréquence dans l'ordre décroissant.

-Sélectionner H2:H18
=FrequenceTexte(C422)
-valider avec maj+ctrl+entrée

Boisgontier