tigeline001
XLDnaute Occasionnel
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
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
VB:
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