Macro permettant de compter le nombre d'occurrences

Version imprimable

12/03/2014, 22h13
Soja-GroB

1 pièce(s) jointe(s)

Macro permettant de compter le nombre d'occurrences

Bonjour,

J'ai un tableau avec 2 colonnes comportant :
- Dans la première colonne : des lettres
- Dans la deuxième colonne : les types associés aux lettres

Je peux avoir plusieurs fois le même type pour une lettre.
Le but est de déterminer pour chaque lettre différente de la première colonne le nombre d'occurrence maximum et le 2ème nombre d'occurrence maximum des types associés.
Les résultats doivent ensuite être marqués dans un tableau récapitulatif.

Je joins un fichier comportant le tableau récapitulatif à remplir automatiquement et détaillant un peu mieux ma demande avec un exemple.
J'ai déjà cherché un long moment sans trouver la solution. Cette macro est très importante pour un fichier que j'utilise au boulot et m'éviterai bien des erreurs.

J'espère que ma demande est assez clair sinon n'hésitez pas à me demander des explications supplémentaires.

Je vous remercie d'avance pour votre aide.

Cordialement.
12/03/2014, 23h16
Chtik

Une première piste à adapter je pense et qui te permettrait de déterminer le nombre d'occurrences.

http://silkyroad.developpez.com/excel/doublons/#LIV-D

En tout cas, moi, je chercherais par là dans un premier temps...

1 pièce(s) jointe(s)

Bonjour,

Cf PJ

=MotPlusFrequent($E$3:$F$100;A4)

Code:

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 = m
End Function

Jacques Boisgontier

13/03/2014, 09h41
MarcelG

occurences
Bonjour à vous, Bonjour au Forum,

Jacques.

(Ravi de te voir sur ce forum, j'ai tes contributions dans mes favoris Internet)

J'essaie de comprendre ton code.
Mais je n'arrive pas à utiliser ta fonction dans le VBE.

Apparemment, mais je peux me tromper, l'argument "champ" est considéré comme d'un autre type que Range.
Dans ce cas, tu aurais écrit

Code:

Set a = champ

Or, si j'écris
Code:

1 2 3 Public Sub essai_frequ() Debug.Print MotPlusFrequent("E3:F31", "A") End Sub
J'obtiens une erreur "13 - Incompatibilité de type" sur la ligne

Code:

Lbound(a)

Ce qui pourrait être logique.

Comment faire alors?

1 pièce(s) jointe(s)

Bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Sub essai()
  Set champ = Range("e3:f100")
  For Each c In [A4:A8]
    c.Offset(, 1) = MotPlusFrequent(champ, c)
    c.Offset(, 2) = MotPlusFrequent2(champ, c)
  Next c
End Sub
 
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 = m
End Function
 
Function MotPlusFrequent2(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
  m2 = 0
  For Each c In MonDico
   If c <> temp Then
    If MonDico.Item(c) > m2 Then m2 = MonDico.Item(c): temp2 = c
   End If
  Next c
  MotPlusFrequent2 = m2
End Function

Jacques Boisgontier

14/03/2014, 09h55
MarcelG

fonction dans VBE
Bonjour à vous, Bonjour au Forum,

En effet,
Code:

1 2 3 4 Sub essai2() Set champ = Range("e3:f100") Debug.Print MotPlusFrequent(champ, "A") End Sub
Ce code est bien effectif.
Une autre utilité des dictionnaires, que la gestion des doublons.

Merci, Jacques, et à bientôt j'espère.