Determine le maximum par mois

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

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

Une alternative avec la mise sous forme de tableau des données et l'utilisation d'un TCD.

VBA n'est utilisé que pour la mise à jour de ce dernier.

Cdlt.

Bonjour,

avec un petit changement ceci à l'air de fonctionner

P.

Sub Compter()
Dim Couleurs, D, C, mRange, Last
Dim Plg
Dim Maxi, iMaxi
Set ws1 = Sheets("feuil1")
Set D = 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 D.Item(C.Value2) = D.Item(C.Value2) + 1
  Maxi = IIf(Maxi > D.Item(C.Value2), Maxi, D.Item(C.Value2))
  iMaxi = IIf(Maxi > D.Item(C.Value2), iMaxi, C)
Next C
[E2].Resize(D.Count) = Application.Transpose(D.Keys)
[F2].Resize(D.Count) = Application.Transpose(D.items)
Last = [F65000].End(xlUp).Row
Set Plg = ws1.Range("E2:E" & Last)
DMax = Application.Max(D.items)
Cells(Last + 2, "F").Value = DMax
Cells(Last + 2, "E").Value = iMaxi
End Sub

Merci Patrick

ce que je veux c'est d'avoir pour chaque mois le maximum d'intervention

Exemple

Pour mai l'intervention 1-1103913505 est present 9 fois

Pour le meme mois de mai 1-1121401607 est present 1 fois

donc on doit prendre le nombre 9

Merci

Bonjour,

Tu n'a pas de données pour le mois de mai dans ton fichier !?

Je renvoie ma proposition modifiée.

Cdlt.

Merci Jean Eric

je veux juste avoir le maximum de l'intervention le plus présent pour chaque mois

Merci

Bonjour Patrick1957

J'ai tester ta solution mais elle me retourne par date le nombre d'interventions par mois .Peut etre que j'ai mal expliqué mais ce que je veux reellement c'est d'avoir par mois le maximum de presente des intervention

Exemple

Supposons pour le mois juin on peut avoir deux interventions A et B

A est present 8 fois et B 5fois

donc comme resultat on aura pour juin 8 comme max

Merci

Bonjour,

ça aurait été plus simple te facile de donner des exemples par rapport au fichier que tu nous as montré, ça fait 2 fois que tu parles de mais ou juin et il n'y a rien en mai ni juin.

Bien poser le problème, c'est la moité de la solution !!!

P.

Ok Patrick1957

je remets le fichier

si tu vois pour le mois de septembre j'ai une présence de l' intervention (1-1003603403)

et 14 présences de l'intervention(1-1103913505) donc pour le mois de septembre on aura 14 comme max

On doit faire la meme chose pour tous les mois

MErci