Discussion :

[lacouls]

Bonjour à tous !

Voila je sèche depuis un long moment sur un problème plutôt simple.
J'ai deux feuilles :

Et


Je cherche à afficher l'article qui apparait le plus de fois, en fonction de la référence magasin.
J'ai trouvé une fonction me permettant d'afficher l'occurence qui apparait le plus grand nombre de fois dans une plage donnée. Mais là où je bloque c'est que la plage dépend d'un critère, celui de la référence magasin.
N'y a t'il pas une solution plus simple qu'une fonction VBA ?

Merci

[QuestVba]

As-tu lu ceci ?

[boisgontierjacques]

Bonsoir,

Avec une fonction Perso

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function MotPlusFrequent(champ, critère)
  Set MonDico = CreateObject("Scripting.Dictionary")
  a = champ
  For i = LBound(a) To UBound(a)
    If a(i, 1) = critère Then MonDico(a(i, 2)) = MonDico(a(i, 2)) + 1
  Next i
  m = 0
  For Each c In MonDico
    If MonDico.Item(c) > m Then m = MonDico.Item(c): temp = c
  Next c
  MotPlusFrequent = temp & "(" & m & ")"
End Function

Jacques Boisgontier