Tri en vba

frc -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 31 mars 2015 à 16:46

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

Afficher la suite

A voir également:

Tri en vba
Comment faire un tri personnalisé sur excel - Guide
Logiciel tri photo - Guide
Excel compter cellule couleur sans vba - Guide
En cours de traitement sur le site de tri local - Forum Consommation & Internet
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

les 10 meilleures C'est quoi pour vous les 10 meilleurs ?????

frc

les 10 meilleures sont les 10 valeurs les plus fortes

frc > frc

bonjour

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

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

tu l'as
soit sur le lien de mon post #2 (ci dessous)
soit sur le lien du post de fs894009 du post #4

frc > ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention

merci , c'est vu

Meilleures salutations

Réponse 2 / 4

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Bonjour

Un exemple
https://www.cjoint.com/?3CEmx3lmHeF

Cdlmnt

Réponse 3 / 4

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Réponse 4 / 4

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Est-ce que je peux aller chercher un colis à l'agence Chronopost

colis dans centre de traitement

appliquer une pause dans une macro vba excel

Votre réponse

Discussions similaires