Connaitre la paire de nombre la plus fréquente

Bonjour,

Je vous expose ma petite problématique:

J'ai un tableau de 4 colonnes et 100 lignes

Chaque cellule contient un nombre entier de 1 à 10 (dans n'importe quel ordre)

Les lignes sont totalement indépendantes les unes aux autres (un nombre peut se répéter d'une ligne)

Je souhaiterai connaitre pour les 100 lignes la paire de nombre la plus fréquente

Merci d'avance pour votre aide

Bonjour,

une solution via une fonction personnalisée

exemple d'appel de la fonction

=ppf(A1:D100)

résultat de la fonction

la paire la plus fréquente est x,y

Function ppf(r As Range) As String
    Dim ctr(10, 10)
    Application.Volatile
    For i = 1 To r.Rows.Count
        For j = 1 To r.Columns.Count - 1
            For k = j + 1 To r.Columns.Count
                a = r(i, j)
                b = r(i, k)
                If a > b Then c = a: a = b: b = c
                ctr(a, b) = ctr(a, b) + 1
                If ctr(a, b) > m1 Then m1 = ctr(a, b): a1 = a: b1 = b
            Next k
        Next j
    Next i
    ppf = "paire la plus fréquente = " & a1 & "," & b1
End Function

Bonjour

Fonction personnalisée

33frequencepaire.xlsm (19.21 Ko)

Merci à tous les 2

Rechercher des sujets similaires à "connaitre paire nombre frequente"