Aide pour un problème de fréquence !!!!! (urgent)

[pierro3842]

Bonjour à tous !!
J'ai une liste de clients qui est représentée par leur numéro (dans la feuille "Division IF") et je dois faire un listing des 5 numéros de clients qui reviennent les plus régulièrement dans cette liste.

J'ai réussi à trouver le premier sans problème (fonction MODE) par contre paour les suivants je ne sais pas du tout comment faire !!

Je vous ai joins le fichier Excel de mes gallères !!! (j'ai repris la position exact des caractères dans un tableau qui est beaucoup plus complèxe et beaucoup plus grand!)

Merci par avance pour votre aide

 

[Pyrof]

Re : Aide pour un problème de fréquence !!!!! (urgent)

Bonjour

Premièrement le mot urgent est à banir

Généralement quand on le voit, on ne lit pas la demande

Je fais exception:

voici la macro


Sub dudule()
Dim tableau 'Crée une variable
Set tableau = CreateObject("Scripting.Dictionary")

Dim resultat(5, 2)
Feuil1.Select
ligne = 6
col = 8
While Cells(ligne, col) <> ""
Cells(ligne, col).Select
cle = "C" & Cells(ligne, col)
If IsEmpty(tableau(cle)) Then
tableau(cle) = 1
nb = nb + 1
Else
tableau(cle) = tableau(cle) + 1
End If


For b = 1 To 5
If tableau(cle) > resultat(b, 1) Then
For b1 = 5 To b Step -1
resultat(b1, 1) = resultat(b1 - 1, 1)
resultat(b1, 2) = resultat(b1 - 1, 2)
Next
resultat(1, 1) = tableau(cle)
resultat(1, 2) = cle
Exit For
End If
Next



ligne = ligne + 1
Wend


Feuil2.Select

Cells(5, 3) = Mid(resultat(1, 2), 2)
Cells(5, 4) = resultat(1, 1)

Cells(6, 3) = Mid(resultat(2, 2), 2)
Cells(6, 4) = resultat(2, 1)

Cells(7, 3) = Mid(resultat(3, 2), 2)
Cells(7, 4) = resultat(3, 1)

Cells(8, 3) = Mid(resultat(4, 2), 2)
Cells(8, 4) = resultat(4, 1)

Cells(9, 3) = Mid(resultat(5, 2), 2)
Cells(9, 4) = resultat(5, 1)

End Sub

 

[pierro3842]

Re : Aide pour un problème de fréquence !!!!! (urgent)

eeeeeuuuhh merci pour l'info (urgent je ne savais pas !!)

Sinon, je ne connais pas du tout l'utilisation des macros !
Comment dois-je faire pour la créer et l'utiliser ??
N'existe t'il pas une solution par formule ?

Merci par avance pour vos réponses

 

[JeanMarie]

Re : Aide pour un problème de fréquence !!!!! (urgent)

Bonsoir

Pour une formule, je te propose celle-ci, formule à mettre en C6, à valider par les touches Ctrl+Shift+Entrer, puis fais un glisser déposer vers le bas

=MODE(SI(ESTNA(EQUIV('Division IF'!H$6:H$222;'Graph IF'!C$4:C5;0));'Division IF'!H$6:H$222))

Pourquoi les trois touches, c'est une formule matricielle. Après validation, des {} entourent la formule dans la barre de d'outils formule.

@+Jean-Marie

 

[pierro3842]

Re : Aide pour un problème de fréquence !!!!! (urgent)

Merci beaucoup Jean Marie c'est exactement ce que je désirais !!
Et félicitation pour la formule (pffffffffff!!)