Discussion :

[nianko]

Bonjour,

J'ai un petit souci a priori pas tres complique mais je ne trouve pas la solution.

Voila j'ai une liste de 40 clients environ avec leurs chiffres d'affaires respectifs. J'ai besoin d'extraire les 15 plus gros clients dans cette liste. J'ai commencé par utilise la fonction LARGE en incrementant de 1 le 2e paramètre pour avoir les 15 premiers (ex: large(maplage,1), puis large(maplage,2) et ainsi de suite); mais il y a un souci avec les doublons (le nom du 1er client dans la liste des doublons et le montant correspondant apparait 2 fois -je n'ai pas essayer avec un "triplon" mais je suppose que c'est la meme chose, la valeur repetée n'apparaitra qu'une fois).

J'ai essayé de contourner le probleme avec une petite macro, mais je me retrouve avec le meme souci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Top15clients()
Dim cellule As Range, rang, i, limite As Integer
limite = 15
 
For Each cellule In Range("TopClients")
    For i = 1 To limite
        If cellule.Offset(0, 8) = i Then
          Range("TOP15").Cells(i) = cellule
          Range("TOP15").Cells(i).Offset(0, 1) = cellule.Offset(0, 1)
          Range("TOP15").Cells(i).Offset(0, 2) = cellule.Offset(0, 2)
        Exit For
        End If
    Next i
Next cellule
End Sub

La plage TOP15 fait reference à l'endroit où je veux avoir mes 15 plus gros clients. Quelqu'un voit comment gerer le problème des doublons?

Merci d'avance

[mercatog]

Bonsoir
un filtre automatique ferait l'affaire

Fichier:
Feuil1: Colonne A: Clients, Colonne B, Chiffre d'affaire, Ligne 1: Titre des colonnes
Feuil2: Résultat à partir de A1

Code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro2()
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Sheets("Feuil1")
    .AutoFilterMode = False
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    With .Range("A1:B" & LastLig)
        .AutoFilter Field:=2, Criteria1:="15", Operator:=xlTop10Items
        .SpecialCells(xlCellTypeVisible).Copy Sheets("Feuil2").Range("A1")
    End With
    .AutoFilterMode = False
End With
End Sub