[RESOLU] Repérer les 5 articles qui ont la plus grande récurrence dans une liste

[JacKrauser]

Salut à tous !
J'aurai besoin de votre aide concernant la collecte de plusieurs informations concernant une liste.
J'ai en effet en colonne H une liste d'article composée de 3 types différents :
- commençant par "X",
- commentçant par "Y",
- le reste.
En colonne J je dispose de l'année de commande des articles.

J'aimerai créer un top 5 des articles X de 2010 qui sont les plus récurents dans ma liste,
idem pour les 5 qui commencent par Y de 2010, idem dans les restants de 2010.
Et encore les mêmes trois top 5 que précédemment mais pour 2011.

Si possible j'aimerai éviter les macros, sauf si celà s'avère nécessaire !

Merci d'avance pour le temps que vous voudrez bien accorder pour moi !

 

[JacKrauser]

Re : Repérer les 5 articles qui ont la plus grande récurrence dans une liste

Personne de dispo ?

 

[Victor21]

Re : Repérer les 5 articles qui ont la plus grande récurrence dans une liste

Bonjour, et bienvenue sur le forum

Personne de dispo ?

Pas de fichier dispo, pour nous permettre de vérifier les propositions avant de les envoyer ?

 

[JacKrauser]

Re : Repérer les 5 articles qui ont la plus grande récurrence dans une liste

J'ai fini par trouver
Mais merci quand même pour l'aide que tu as voulu m'apporter !

 

[Victor21]

Re : [RESOLU] Repérer les 5 articles qui ont la plus grande récurrence dans une liste

Re,

Merci à vous également d'avoir partagé votre solution, comme il est de règle dans un forum d'entr'aide.

 

[JacKrauser]

Re : [RESOLU] Repérer les 5 articles qui ont la plus grande récurrence dans une liste

Je vais la rajouter, mais je ne pense pas que ce soit la solution la plus pratique.

 

[JNP]

Re : Repérer les 5 articles qui ont la plus grande récurrence dans une liste

Bonjour le fil ,

J'ai fini par trouver

J'ai des doutes sur une solution par formule ...
Ou alors, c'est du tri manuel, et un peu de bidouille derrière ...
Vu que le forum était coupé hier, j'ai un peu travaillé dessus (via VBA, parce qu'en formule, je n'y suis pas arrivé ) :

' MonDico par JB
Function JacKrauser(PlageType As Range, PlageDate As Range, MonType As String, MaDate As String, MaPosition As Byte) As String
Dim MonDico, I As Integer, Désignations, Nombres, J As Byte
If PlageType.Columns.Count > 1 Or PlageDate.Columns.Count > 1 Or PlageType.Count <> PlageDate.Count Then
    JacKrauser = "Erreur!"
    Exit Function
End If
Set MonDico = CreateObject("Scripting.Dictionary")
For I = 1 To PlageType.Count
    If PlageDate(I) = MaDate Then
        Select Case MonType
            Case "X", "Y"
                If Left(PlageType(I), 1) = MonType Then
                    MonDico(PlageType(I).Value) = MonDico(PlageType(I).Value) + 1
                End If
            Case Else
                If Left(PlageType(I), 1) <> "X" And Left(PlageType(I), 1) <> "Y" Then
                    MonDico(PlageType(I).Value) = MonDico(PlageType(I).Value) + 1
                End If
            End Select
    End If
Next I
Désignations = MonDico.Keys
Nombres = MonDico.Items
For J = 1 To MaPosition
    For I = LBound(Désignations) To UBound(Désignations)
        If Nombres(I) = Application.WorksheetFunction.Large(Nombres, 1) Then
            JacKrauser = Désignations(I)
            Nombres(I) = 0
            Exit For
        End If
    Next I
Next J
End Function

Bonne journée

 

[adel53]

Re : [RESOLU] Repérer les 5 articles qui ont la plus grande récurrence dans une liste

Bonjour en utilisant les TCD tu peux ressortir ce type de résultats.