IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

extraire 5 plus grande valeur d'un tableau


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Octobre 2010
    Messages
    240
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aisne (Picardie)

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

    Informations forums :
    Inscription : Octobre 2010
    Messages : 240
    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

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Bonjour,

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

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Membre éclairé
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Octobre 2010
    Messages
    240
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aisne (Picardie)

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

    Informations forums :
    Inscription : Octobre 2010
    Messages : 240
    Par défaut
    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.

Discussions similaires

  1. [Free Pascal] Recherche de la plus grande valeur d'un tableau et de son rang
    Par TheSpecialOneDZ dans le forum Free Pascal
    Réponses: 2
    Dernier message: 23/12/2014, 20h27
  2. extraire les 5 plus grandes valeurs d'un tableau
    Par Lekno dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 2
    Dernier message: 17/10/2013, 12h27
  3. [TPW] Rechercher la plus grande valeur dans un tableau récursivement
    Par abdou monta dans le forum Turbo Pascal
    Réponses: 4
    Dernier message: 10/05/2013, 16h36
  4. [XL-2003] Extraire les 10 plus grandes valeurs après filtrage
    Par thojus dans le forum Excel
    Réponses: 9
    Dernier message: 05/03/2013, 18h09
  5. Réponses: 2
    Dernier message: 18/03/2009, 08h48

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo