XL 2013 Valeur de la frequence max avec l'objet Dictionnary

[mmalzert]

Bonjour le Forum,

Je cherche à récupérer la valeur correspondant à la fréquence max d'une clé (je ne sais pas trop comment l'expliquer autrement). Je voudrais utiliser l'objet Dictionnary mais je bute dessus. On va dire que j'arrive à adapter le code à mes besoins mais dans le cas présent, je n'ai rien trouvé.
J'ai fais un exemple représentatif de mon fichier source ci joint.

Le tableau de gauche représente la BD. Le tableau de droite représente les clés recherchéess dans la BD. C'est là que je souhaite récupérer les bonnes valeurs.

Merci pour l'aide apportée par ceux qui se pencheront sur mon petit problème.

 

[BOISGONTIER]

Bonjour,

Exemple: http://boisgontierjacques.free.fr/fichiers/Cellules/Dictionary2.xls

Boisgontier

 

[job75]

Bonjour mmalzert, JB,

Voyez le fichier joint et cette fonction VBA :

Function VFM(colText As Range, cible$, colNum As Range) As Variant
Dim d As Object, i&, x$, nmax&
VFM = [#N/A]
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To colText.Count
    If colText(i) = cible Then
        x = colText(i) & colNum(i)
        d(x) = d(x) + 1
        If d(x) > nmax Then nmax = d(x): VFM = colNum(i)
    End If
Next
End Function

Elle est utilisée dans cette formule en G3 :

=VFM(A$2:A$13;F3;C$2:C$13)

A+

 

[mmalzert]

Bonjour à tous les deux,

@BOISGONTIER
Merci pour ton lien. Pour tout dire je suis sur ton site depuis ce matin en tentant de voir quelle partie pourrait m'être utile.
J'avais effectivement vu ces deux exemples. Mais je suis incapable d'adapter.

@job75
Merci pour ton code. J'ai adapté et ça fonctionne bien. Naturellement un peu plus long sur une base de 40k lignes.
Est-ce possible que tu commentes les lignes du code stp, histoire que j'arrive à avancer un peu plus tout seul la prochaine fois ?

 

[job75]

La ligne d(x) = d(x) + 1 compte le nombre d'apparitions (fréquence) de la valeur concaténée x.

La ligne suivante détermine le maximum des fréquences ainsi calculées et conjointement la valeur correspondante de la colonne colNum.

Mais le VBA n'est pas indispensable, voyez le fichier joint.

La colonne auxiliaire D effectue les concaténations et en G3 on utilise cette formule matricielle :

=INDEX(C$2:C$13;EQUIV(MAX(SI(A$2:A$13=F3;NB.SI(D$2:D$13;D$2:D$13)));SI(A$2:A$13=F3;NB.SI(D$2:D$13;D$2:D$13));0))

Cela dit sur 40 000 lignes ça devrait ramer...

A+

 

[mmalzert]

Merci pour ces précisions et pour votre aide.

Bonne fin de journée.

 

[BOISGONTIER]

Sans vba

=MODE(SI($A$2:$A$30=F3;$C$2:$C$30))
Valider avec maj+ctrl+entrée


Boisgontier

 

[job75]

Ah mais bien sûr JB, c'est très simple, la fonction MODE donne tout de suite la valeur de la fréquence maximale.

 

[mmalzert]

En effet ça sort les mêmes résultats. Pour le coup je ne connaissais pas cette fonction.
Merci JB.