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

En général, nous pouvons appliquer la fonction MODE (=MODE(A1:A16)) pour trouver le nombre le plus courant dans une plage. Mais cette fonction MODE ne fonctionne pas avec des chaînes de texte. Pour extraire la valeur la plus fréquente, vous pouvez appliquer la formule matricielle suivante. Veuillez procéder comme suit :

Dans une cellule vide à côté des données, entrez la formule ci-dessous, puis appuyez simultanément sur les touches 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 à mémoriser ? Enregistrez la formule en tant qu'entrée de texte automatique pour la réutiliser en un seul clic à l'avenir ! Lire la suite…     Essai gratuit

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

Sélectionnez une cellule vide où vous placerez 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 le Type de formule liste déroulante, cliquez pour sélectionner Trouver la valeur la plus fréquente dans le Sélectionnez une formule boîte de liste, spécifiez la liste/colonne dans la Plage case, et cliquez sur le bouton Ok . Voir capture d'écran :

Vous verrez ensuite que la valeur la plus fréquente a été trouvée et placée dans la cellule sélectionnée. Voir capture d'écran :

Avec le code VBA suivant, vous pouvez non seulement trouver 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, ce qui ouvre la fenêtre Microsoft Visual Basic for Applications.

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

Code VBA : Trouver la valeur la plus fréquente dans 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

3Appuyez ensuite sur F5 pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la plage que vous souhaitez utiliser. Voir capture d'écran :

4Cliquez ensuite sur OKet vous obtiendrez une boîte de dialogue affichant les informations suivantes :