Comment trouver la valeur la plus fréquente (nombre ou chaîne de texte) dans une liste sous Excel ?

Généralement, on peut utiliser la fonction MODE(=MODE(A1:A16)) pour trouver le nombre le plus courant dans une plage. Toutefois, cette fonction ne prend pas en charge les chaînes de texte. Pour extraire la valeur la plus fréquente, appliquez la formule matricielle suivante. Procédez comme suit :

Dans une cellule vide située à côté de vos données, saisissez la formule ci-dessous, puis appuyez simultanément sur Maj + Ctrl + Entrée.

=INDEX($A$1:$A$16;MODE(EQUIV($A$1:$A$16;$A$1:$A$16;0)))

La formule est trop compliquée à retenir ? Enregistrez-la en tant qu’entrée de texte automatique et réutilisez-la en un seul clic à l’avenir !En savoir plus…     Essai gratuit

Si vous avez installé Kutools pour Excel, vous pouvez facilement utiliser sa formule Trouver la valeur la plus courante pour obtenir rapidement la valeur la plus fréquente à partir d’une liste ou d’une colonne dans Excel.

1. Sélectionnez une cellule vide dans laquelle vous souhaitez insérer la valeur trouvée, puis cliquez sur Kutools > Assistant de formule > Assistant de formule.

2. Dans la boîte de dialogue Assistant de formule, choisissez Recherche dans la liste déroulante Sélectionnez une formule, cliquez pour sélectionner Trouver la valeur la plus fréquente, indiquez la liste ou la colonne concernée dans la zone Plage, puis cliquez sur le bouton OK. Voir la capture d’écran :

La valeur la plus courante a été identifiée et insérée dans la cellule sélectionnée. Voir la capture d’écran :

Grâce au code VBA ci-dessous, vous pouvez non seulement identifier la valeur la plus fréquente, mais aussi compter le nombre d’occurrences du mot le plus courant.

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Trouver la valeur la plus courante à partir d’une liste

Sub FindFrequency()
'Update 20140326
Dim Rng As Range
Dim WorkRng As Range
Set dic = CreateObject("scripting.dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
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

3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Une boîte de dialogue s’affiche alors afin que vous puissiez sélectionner la plage à utiliser. Voir la capture d’écran :

4. Cliquez ensuite sur OK : une boîte de dialogue s’affiche alors avec les informations suivantes :