Déterminer le maximum par mois

[tigeline001]

Bonjour tout le monde
Nous voulons determiner le maximum par les intervention par mois.
Au fait nous avons réussi à determiner le maximum parmis les interventions mais ce que nouvoulones maintenant c'est d'avoir le maximum des intervention pour chaque mois
Par exemple l'intervention 1-1003603403 à comme moi 09(septembre) et elle est apparue une fois
Pour le même mois nous avons 1-1103913505 qui est apparue 14 donc pour le mois de septembre nous avons comme max 14
SVP jattend votre aide
Merci
En utilisant ce code ci dessous
nous avons un seul maximum

Sub Compter()
Dim Couleurs, MonDico, C, mRange, Last
Dim Plg
Dim Maxi, iMaxi
Set ws1 = Sheets("feuil1")
Set MonDico = CreateObject("Scripting.Dictionary")
[E:F].ClearContents
Last = [A65000].End(xlUp).Row
Set mRange = Range("C2:C" & Last): mRange.Interior.ColorIndex = Null
For Each C In mRange
  If C <> "" Then MonDico.Item(C.Value) = MonDico.Item(C.Value) + 1
  Maxi = IIf(Maxi > MonDico.Item(C.Value), Maxi, MonDico.Item(C.Value))
  iMaxi = IIf(Maxi > MonDico.Item(C.Value), iMaxi, C)
Next C
[E2].Resize(MonDico.Count) = Application.Transpose(MonDico.Keys)
[F2].Resize(MonDico.Count) = Application.Transpose(MonDico.items)
Last = [F65000].End(xlUp).Row
Set Plg = ws1.Range("E2:E" & Last)
DMax = Application.Max(MonDico.items)
Cells(Last + 2, "F").Value = DMax
Cells(Last + 2, "E").Value = iMaxi
End Sub

 

[chris]

Re
C'est bien ce que peut faire un TCD avec 2 présentations possibles : juste le mois ou bien l'intervention concernée du mois

Filtre automatique avec 10 premiers limité à celui du haut...

A noter que tu n'as rien en juin sur ton exemple initial et que tu as des exæquo en décembre, d'où un 2 sur la 1ère présentation...

Edit on peut aussi afficher les mois sans intervention dans le TCD

 

[tigeline001]

Merci Chris
T vraiment disponible
Merci encore