Discussion :

[sonichou]

bonjour
sur une page j'ai des noms en colonne A, des montants en colonnes B et des articles en colonnes C
j'aimerai à l'aide d'une macro faire un filtre qur les nom afin d'avoir les 10 articles qui coutent le plus chèr par personnes
quelqu'un peut t-il m'aider ?

[MarcelG]

Bonjour Sonichou,

Si pour une personne donnée, tu souhaites afficher les 10 valeurs les plus élevées (ici le prix), alors le plus efficace reste l'utilisation d'une variable Tableau.

Important : Prendre la précaution préalable de trier le tableau par Nom et prix décroissant. On peut affecter ce tri sur la variable tableau: le code en serait plus complexe, à mon - humble - avis.

(à adapter, notamment au niveau de l'adressage des cellules)

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Public Sub essai_tablo()
 
Dim lacel As Range
Dim tablo()
 
'ton critère de tri
lachaîne = Range("L2").Value
 
n = 0
 
'balayage des lignes informées hors les titres de colonnes
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Set lacel = Range("A" & i)
        With lacel
                If .Value = lachaîne Then
                        n = n + 1
                        'Alimentation du tableau dans la limite de 10 valeurs
                        If n <= 10 Then
                                ReDim Preserve tablo(1 To 3, 1 To n)
                                'Dans l'ordre : Nom, Article, Prix
                                For k = 1 To 3
                                        tablo(k, n) = .Offset(0, k - 1).Value
                                Next k
                        End If
                End If
        End With
Next i
 
'Information de la feuille des résultats
Range([G2], [I2].Offset(UBound(tablo, 2) - 1, 0)).Value = WorksheetFunction.Transpose(tablo)
 
Set lacel = Nothing
 
Erase tablo
 
End Sub

Remarques :

- La variable tableau est sise sur un champ de cellules, d'ù la dimension 2.
- Un tableau à 2 dimensions ne peut être, sauf erreur, redimensionné que pour sa 2ème dimension. D'où, ici, l'utilisation de la fonction

Code :

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

Transpose