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

VBA Discussion :

Trier les lignes de ma ReadSheet par order decroissant de ma col 2 ?


Sujet :

VBA

  1. #1
    Membre à l'essai
    Inscrit en
    Janvier 2007
    Messages
    13
    Détails du profil
    Informations forums :
    Inscription : Janvier 2007
    Messages : 13
    Points : 11
    Points
    11
    Par défaut Trier les lignes de ma ReadSheet par order decroissant de ma col 2 ?
    Bonjour,

    Je suis en train de reprendre un programme en VB qui analyse toute une série de donnée dans une ReadSheet "Data" et donne les resultats dans toute une série de WriteSheet

    Mon problème c'est que pour que le programme fonctionne il faut, pour une raison spécifique, que les lignes de "Data" soient classées par ordre décroissant de la deuxième colonne

    Or normalement ce code devrais le faire mais il ne fonctionne pas
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    'sort rows by Y (2nd column)
        Sheets("Data").Select
        With ReadSheet
            .Range(.Cells(1, 1), .Cells(miNumCountries, miTotalColumns)).Sort  Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
                OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        '    .Columns("B:IV").EntireColumn.AutoFit
            .Cells(1, 1).Select
        End With
    Quelqu'un pourrait il me donner un petit conseil ?? :-)

    Ou même me dire comment utiliser le boutton Tri Croissant de Excel pour faire en sorte que toute les lignes soient classées suivant cet ordre decroissant de la colonne deux ?!?!

    Je sais ca à l'air bizarre mais ça m'aiderais beaucoup so qql pouvait me donner des conseil la dessus

    Pfou..... pas facil VBA !!!

    Merci d'avance

  2. #2
    Expert éminent sénior


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Points : 20 038
    Points
    20 038
    Par défaut
    c'est quoi ReadSheet ? ... que ce passe-t'il lorsque tu exécute ce code ...(?mauvais sens de tri..?)

  3. #3
    Membre à l'essai
    Inscrit en
    Janvier 2007
    Messages
    13
    Détails du profil
    Informations forums :
    Inscription : Janvier 2007
    Messages : 13
    Points : 11
    Points
    11
    Par défaut ReadSheet
    ReadSheet c'est mon onglet dans lequel j'introduit les données qui vont être traitée, sorry pr l'oubli...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set ReadSheet = Worksheets("Data")

    En fait il semble y avoir un bug dans le petit bout de code car il sert à classer les lignes (de ma feuille de données Excel à traiter) par ordre decroissant de la deuxième colonne (sachant que la première ligne et la première colonne servent aux intitulé des lignes et colonnes) MAIS si je ne fait pas ce classement avant manuellement, le code bug, donc le code est foireux mais je sais pas pourquoi ?!?!?!

    Quelqu'un saurait t'il me donner un petit indice ?!?!?!, ou alors peut être que mes explication sont trop vague ?!?!

    merci d'avance pour toute aide

    Antoine

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 21
    Dernier message: 17/12/2012, 15h38
  2. [VBA]Trier les valeur d une liste par ordre croissant
    Par PierrotKun dans le forum VBA Access
    Réponses: 1
    Dernier message: 30/03/2007, 09h37
  3. Réponses: 2
    Dernier message: 19/09/2006, 21h34
  4. Trier les données dans 1 tableau par ordre décroissant
    Par Blunet dans le forum VB 6 et antérieur
    Réponses: 8
    Dernier message: 23/11/2005, 09h56
  5. Réponses: 3
    Dernier message: 26/04/2004, 12h51

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