Renvoi les 5 plus grandes Valeurs avec nb d'occurence

Bonjour a tous

Je me retrouve une peu bloqué, j'ai un tableau avec les valeurs de 1 à 49 et en face de chacune de ces valeurs le nombre de fois ou elles remontent.

J'ai fait un petit code ci dessous, malheureusement si j'ai pour deux valeurs différente (colonne1) le nombre d’occurrence alors la macro ne me remonte que la première valeur.

Sub Val_Max()

Dim x, Nombre As Integer
Dim Ligne As Long

Set A = Sheets("Resultat")
For x = 1 To 3
  'récupère la Xieme valeur la plus élevée dans la 2eme colonne
Nombre = Application.WorksheetFunction.Large(A.Columns(2), x)
        'recherche le numéro de ligne pour la valeur trouvée
Ligne = Application.Match(Nombre, Columns(2), 0) - 1
      'récupère le contenu de la 1ere colonne pour la valeur cible
MsgBox ("la valeur " & Ligne & " apparait " & Nombre & " fois ")

Next x

End Sub

Comment faire pour que les 2 valeurs remontent

Merci pour votre aide

NiKo

Bonjour,

dis-nous concrètement quels résultats tu attends de ce code. Ton explication n'est pas claire.

Raja,

je pense qu'il veut les 3 numéros avec les plus grandes occurrences.

Donc :

La valeur 12 apparait 4 fois

La valeur 25 apparait 4 fois

La valeur 5 apparait 2 fois

Or là il obtient :

La valeur 12 apparait 4 fois

La valeur 12 apparait 4 fois

La valeur 5 apparait 2 fois

Car il récupère le numéro avec une recherche.

Oui merci melch, c'est bien mon probleme

NiKo