XL 2010 Créer formule

[stefer]

Bonjour,
Je voudrais avoir dans une sélection de chiffre le nombre le plus utilisé puis le second etc. Si 2 nombres ont été identiquement utilisé, cest le nombre le moins élevé qui prends le rang et le nombre le plus élevé qui prend le rang suivant. sir mon exemple excel, j'espère que ceci est plus claire!
Merci d'avance

 

[tbft]

Bonsoir
en deux étapes je suis arrivé à trouver le rang en fonction u nombre d'utilisation
par contre pour le reste, choux blanc..pas inspirer...

 

[stefer]

Bonsoir,
Merci d'avoir donné un résultat déja!
Je me suis mal exprimé moi ce que je veux cest dans les cellule jaune, le résultat des nbs les plus utilisés. La parti en dessous est un récapiculatif et montre que le chiffre 44 est le rang 1 etc....

 

[mapomme]

Bonsoir stefer, tbft, le forum,

Un essai par formules dans le fichier joint. Les explications sont dans le fichier.

 

[stefer]

Bonsoir ce tableau est parfait, merci beaucoup.
Juste le dernier détail comment on peux agrandir le "tablo" par exemple si je veux faire a2:e1000 ?

 

[mapomme]

Re,

Juste le dernier détail comment on peux agrandir le "tablo" par exemple si je veux faire a2:e1000 ?

Voir fichier joint...

 

[job75]

Bonjour Stefer, tbft, mapomme, le forum,

Voyez le fichier joint et cette fonction VBA :

Function Classer(r As Range)
Dim d As Object, a, b, i&, c
Set d = CreateObject("Scripting.Dictionary")
For Each r In r: d(r.Value) = d(r.Value) + 1: Next
a = d.items: b = d.keys
For i = 0 To UBound(b): a(i) = a(i) - b(i) / 1000000: Next 'pour les ex-aequo
tri a, b, 0, UBound(a)
ReDim c(1, UBound(a)) 'base 0
For i = 0 To UBound(a): c(0, i) = b(i): c(1, i) = i + 1: Next
Classer = c 'matrice à 2 lignes
End Function

Sub tri(a, b, gauc, droi) ' Quick sort
Dim ref, g, d, temp
ref = a((gauc + droi) \ 2)
g = gauc: d = droi
Do
    Do While a(g) > ref: g = g + 1: Loop
    Do While ref > a(d): d = d - 1: Loop
    If g <= d Then
      temp = a(g): a(g) = a(d): a(d) = temp
      temp = b(g): b(g) = b(d): b(d) = temp
      g = g + 1: d = d - 1
    End If
Loop While g <= d
If g < droi Then Call tri(a, b, g, droi)
If gauc < d Then Call tri(a, b, gauc, d)
End Sub

La fonction renvoie une matrice à 2 lignes, le tableau source peut-être agrandi sans difficulté.

A+

 

[job75]

Re,

Fichier (2) avec tirage aléatoire sur la plage A2:E1000 :

Private Sub CommandButton1_Click() 'bouton Nouveau tirage
Application.Calculation = xlCalculationManual 'calcul manuel
[A2:E1000] = "=RANDBETWEEN(1,99)" 'adapter les limites
[A2:E1000] = [A2:E1000].Value 'supprime les formules
Application.Calculation = xlCalculationAutomatic 'recalcul des formules
End Sub

A+

 

[job75]

Re,

S'il y a beaucoup de valeurs uniques le calcul des résultats sous G7:I7 prend beaucoup (trop) de temps.

Il faut éviter les recalculs inutiles de la fonction Classer, voyez ce fichier (3) avec 999 valeurs uniques.

Ce n'est pas très facile à comprendre, si vous avez des questions posez-les.

A+

 

[stefer]

Merci a tous j'ai ce que j'atendais!