trouver les 10 plus grandes valeurs

Version imprimable

15/11/2007, 11h59
audrey2112

trouver les 10 plus grandes valeurs

bonjour,
j'ai un probleme que je ne vois pas comment resoudre,je m'explique:
j'ai 2 colonnes: A et B
dans la colonne A il y a des chiffres jusqu'a la ligne r
dans la colonne B: je dois faire apparaitre un smiley triste :( a coté des 10 plus grandes valeurs de la colonne A

je ne sais pas comment trouver les 10 plus grands chiffres et encore moins retenir leur ligne pour faire un smiley dans la colonne d'a coté...

si vous pouvez m'aider...

merci

Bonjour,

Dans ces cas j’utilise les formula
Ce n’est pas puriste mais je trouve cela efficace
Et ça dépanne pas mal

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub MaMacro()
    Nb = 1
    Columns("B").ClearContents
    For CompA = 2 To Range("A1").End(xlDown).Row
        For CompB = 1 To 10
            Range("B" & CompA).FormulaR1C1 = "=IF(LARGE(R3C1:R41C1," & CompB & ")=RC[-1],""VRAI"","""")"
            If Range("B" & CompA).Value = True Then
            'tu insere le smiley
            'Range("B" & CompA).Value = ""
                Nb = Nb + 1
                    If Nb > 10 Then Exit Sub
                Exit For
            End If
        Next CompB
    Next CompA
End Sub

Mais il y a sûrement mieux

15/11/2007, 13h35
fred65200

1 pièce(s) jointe(s)

bonjour à vous deux

En attendant mieux une proposition qui je crois ne fonctionne que sur Excel 2007.

cordialement
15/11/2007, 14h03
Drost

Hello,
Je te propose une solution assez simple que tu pourra probablement mettre en place avec du code!

Tu mets en place un trie de tes valeurs en fonction de ta colonne B eet tu mets un smiley en colonne C pour les 10 premieres lignes !

Tu pourras le faire avec l'enregistreur de macro sans trop de problème !

Cdlt,
Drost

re

une autre proposition pour les versions d'Excel antérieures à 2007
Code:

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 Option Explicit ' Chemin du smiley à adapter Private Const GifImage As String = "C:\Users\xxx\Desktop\icon_sad.gif" Sub Les10Smileys() Dim monTab(1 To 10) As Variant Dim derLi As Long Dim i As Byte Dim Sh As Shape ' suppression des shapes de la feuille, à adapter si tu as déjà des shapes hormis les Smileys For Each Sh In ActiveSheet.Shapes Sh.Delete Next ' récupération de la dernière ligne de la colonne A derLi = Sheets(1).Columns(1).Find("*", , , , , xlPrevious).Row ' boucle pour trouver les 10 plus grandes valeurs For i = 1 To 10 monTab(i) = Application.Match(Application.Large(Range("A2:A" & derLi), i), Range("A2:A" & derLi), 0) + 1 Next i ' insertion des Smileys For i = 1 To UBound(monTab) InsererSmiley Cells(monTab(i), 2).Address Next End Sub ' procédure pour insérer les Smileys dans le coin supérieur gauche des cellules. Sub InsererSmiley(Adresse As Variant) Dim Smiley As Object Set Smiley = ActiveSheet.Pictures.Insert(GifImage) Dim T As Long Dim L As Long T = Range(Adresse).Top L = Range(Adresse).Left Smiley.Top = T Smiley.Left = L Set Smiley = Nothing End Sub
pour que les smileys s'affichent de façon dynamique, coller le code qui suit dans le module de feuille (clic droit sur l'onglet / Visualiser le code)
Code:

1 2 3 4 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Les10Smiley End Sub
Pour le plaisir des formules
Obtenir les adresses des 10 plus grandes valeurs sur Excel
Nommer une plage mesNombres
=DECALER($A$2;;;NBVAL($A:$A)-1;1) (ici -1 si titre en A1)
sélectionner 10 cellules,
dans la cellule active saisir la formule (matricielle)
=ADRESSE(EQUIV(GRANDE.VALEUR(mesNombres;{10;9;8;7;6;5;4;3;2;1});mesNombres;0)+1;1) (ici +1 si titre en A1)
valider en faisant Ctrl + Shift + ENTER
cordialement

16/11/2007, 11h30
audrey2112

merci pour votre aide!!