Tri en vba

frc -  
Bonjour,
J'ai une colonne excel de 50 valeurs (sans vide)
Sans toucher à cette colonne je désirerai par vba trier virtuellement les différentes valeurs de cette colonne puis d'en conserver , toujours sous vba les 10 meilleures .
De retour à la feuille excel , les cellules correspondantes à ces 10 meilleures valeurs seront alors simplement colorées mais la colonne conservera ses valeurs initiales dans l'ordre initial

J'ajoute qu'une boucle serait nécessaire pour un nombre x de colonnes car en fait j'en ai un certain nombre !
Merci pour votre aide

4 réponses

  1.  f894009
    Bonjour,

    les 10 meilleures C'est quoi pour vous les 10 meilleurs ?????
    1. frc
      les 10 meilleures sont les 10 valeurs les plus fortes
    2. frc
      @frcbonjour

      je viens de recevoir votre rectification de code mais je n'avais pas reçu la première mouture ; pouvez vous me l'adresser ?

      Merci
    3. ccm81
      tu l'as
      soit sur le lien de mon post #2 (ci dessous)
      soit sur le lien du post de fs894009 du post #4
    4. frc
      @ccm81merci , c'est vu

      Meilleures salutations
  3. f894009
    Bonjour,

    un exemple avec code un peu plus complique que CCM81 (salut a toi) mais qui pourra vous servir quand vous avez beaucoup plus de donnees a trier dans un autre fichier. Vous pouvez aussi adapter le code de CCM81 pour colorier les 10 valeurs les plus hautes

    https://www.cjoint.com/c/ECFiTBDbXEj
    1. ccm81
      Ah,
      pour les 10 valeurs les plus "fortes" modifier comme la ligne soulignée 
          For li = 1 To n
            v = TS(n - li + 1)
            For lili = 1 To nbli

      Salut à f894009 en passant

      Cdlmnt
      1. f894009
        Re,

        Voir plutot comme ceci vu que le tri reste ascendant: 
        x = UBound(TS)
    If x <= 10 Then
        Deb = 1
    Else
        Deb = x - n
    End If
    For li = x To Deb Step -1
      v = TS(li)
      For lili = 1 To nbli
        If plage.Cells(lili, 1) = v Then plage.Cells(lili, 1).Interior.ColorIndex = 6
      Next lili
    Next li

    Discussions similaires

    Méthode find dans VBA - Recherche de données sous Excel
    baissaoui

    0 réponse
    erreur d'execution 9, l'indice n'appartient pas à la sélection
    isidoh

    18 réponses
    "L'indice n'appartient à la sélection" + VBA
    fleur.31

    2 réponses
    VBA excel : résoudre problème de capacité.
    Juan Pedro

    9 réponses
    Est-ce que je peux aller chercher un colis à l'agence Chronopost
    xXJOSSXx

    8 réponses