Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 05/12/2011, 10h36   #1
Membre habitué
 
Homme Michael
Ingénieur qualité méthodes
Inscription : octobre 2010
Messages : 200
Détails du profil
Informations personnelles :
Nom : Homme Michael
Localisation : France, Aisne (Picardie)

Informations professionnelles :
Activité : Ingénieur qualité méthodes
Secteur : Industrie

Informations forums :
Inscription : octobre 2010
Messages : 200
Points : 115
Points : 115
Par défaut extraire 5 plus grande valeur d'un tableau

Bonjour,

ci joind vous trouverez le tableau en question

ma question est :

Peut on en extraire les 5 plus grandes valeurs?

Le soucis c'est que je ne vois pas du tout comment faire pour réaliser mon besoin.

toutes idées sont les bienvenue

je précise qu'il me faut le nom associé à la valeur ^^


---------------------------------------------------------------------------------------
Fichier joint dans vos discussions
redstoff est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 05/12/2011, 11h42   #2
Expert Confirmé Sénior
 
Homme Daniel
aucune
Inscription : septembre 2011
Messages : 2 004
Détails du profil
Informations personnelles :
Nom : Homme Daniel
Localisation : France, Seine et Marne (Île de France)

Informations professionnelles :
Activité : aucune

Informations forums :
Inscription : septembre 2011
Messages : 2 004
Points : 4 037
Points : 4 037
Bonjour,

Pour les 15 plus grandes de la colonne E, la macro affiche les noms correspondants de la colonne D :

Code :
1
2
3
4
5
6
7
8
9
10
Sub test()
    Dim Ligne, Résultat
    With Application
        For i = 1 To 15
            Ligne = .Match(.Large([E:E], i), [E:E], 0)
            Résultat = .Index([D:D], Ligne, 1)
            MsgBox Résultat
        Next i
    End With
End Sub
__________________
Cordialement.

Daniel

Citation:
La plus perdue de toutes les journées est celle où l'on n'a pas ri.
Chamfort
Daniel.C est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 05/12/2011, 11h50   #3
Membre habitué
 
Homme Michael
Ingénieur qualité méthodes
Inscription : octobre 2010
Messages : 200
Détails du profil
Informations personnelles :
Nom : Homme Michael
Localisation : France, Aisne (Picardie)

Informations professionnelles :
Activité : Ingénieur qualité méthodes
Secteur : Industrie

Informations forums :
Inscription : octobre 2010
Messages : 200
Points : 115
Points : 115
Tout d'abord merci pour ta réponse
elle fonctionne tres bien

ensuite j'aimerai te demander si est possible dans le résultat d'en plus des noms des lignes de mettre le nom de la colonne également?

merci

je reviens sur ce que j'ai elle ne repond pas vraiment a ce que je chercher a faire.

sur plusieurs points:
- elle ne prend pas en compte les doublons, c'est à dire, s'il y a 2 valeurs identiques a 2 lignes differentes, ca ne citera qu'une ligne pour les 2

- la recherche se fait que pour une colonne.

mais je vais utiliser ta solution comme base.
redstoff est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 15h22.


 
 
 
 
Partenaires

Hébergement Web