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 :

Trie horizontale ne marche pas ! [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Décembre 2012
    Messages
    102
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Décembre 2012
    Messages : 102
    Par défaut Trie horizontale ne marche pas !
    Bonjour Mes amis ;

    je cherche à trier un enssembe de valeurs d'un tableau par colonne dans l'ordre de 1.1 à 1.n on se basant sur les valeurs de la ligne 1 ( voir fichier joint) , J'ai développez ce petit bout de code mais çà ne marche plus , il me donne des valeur en désordre ,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
     
     
    Private Sub CommandButton1_Click()
    Range("B1").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        ActiveWorkbook.Worksheets("synthése").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("synthése").Sort.SortFields.Add Key:=Range("B1:AB1" _
            ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("synthése").Sort
            .SetRange Range("B1:AB13")
            .Header = xlGuess
            .MatchCase = True
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
        End With
     
    End Sub
    Merci de me répondre une solution le plutôt possible . !!

    Cordialement
    Fichiers attachés Fichiers attachés

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Si tu te contentes d'un tri de maximum trois niveaux, j'ai écrit une procédure avec plusieurs arguments qui est très souple à l'utilisation.
    Voir ce lien Procédure de tri - Excel 2003-2010 où tu trouveras un classeur avec des exemples.
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Membre Expert
    Homme Profil pro
    retraité
    Inscrit en
    Mars 2013
    Messages
    885
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2013
    Messages : 885
    Par défaut trie horizontal ne marche pas
    bonjour,

    Je suis débutant et j’essaie d’acquérir des connaissances en regardant les problèmes posés.
    tu dois donc accorder ta priorité aux réponses de gens confirmés tel que le premier intervenant.

    Ci-dessous ton code que j'ai repris et semble fonctionner pour le nombre de lignes actuelles, bien entendu.



    Il fait le trie sur les références de la colonne A.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Private Sub CommandButton1_Click()
    Range("a1").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        ActiveWorkbook.Worksheets("synthése").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("synthése").Sort.SortFields.Add Key:=Range("a1:A11" _
            ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("synthése").Sort
            .SetRange Range("a1:AB11")
            .Header = xlGuess
            .MatchCase = True
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
     
    End Sub
    attention : je ne sais quel est le format de tes références mais "cycle 10" vient se loger directement derrière "cycle 1". Ce qui est normal du point de vu excel (informatique) mais n'est bien sur pas souhaitable.
    je ne sais pas ce qu'il faut faire pour éviter ce problème.

    cordialement.

  4. #4
    Membre confirmé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Décembre 2012
    Messages
    102
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Décembre 2012
    Messages : 102
    Par défaut
    Bonjour

    MErci pour votre interrét .. mais :

    Je cherche à faire un trie horizontale et non plus verticale

    De la colonne B1 vers la derniéére colonne à droite et pour toute la plage de donnée !

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

Discussions similaires

  1. 'SHOW TABLES' marche pas sous postgresql !?
    Par fet dans le forum PostgreSQL
    Réponses: 4
    Dernier message: 13/05/2004, 09h28
  2. Maximiser fenêtre ne marche pas
    Par sandrinec dans le forum Composants VCL
    Réponses: 2
    Dernier message: 12/06/2003, 12h02
  3. Réponses: 9
    Dernier message: 07/05/2003, 12h57
  4. [GifDecoder] marche pas dans applet avec IE
    Par formentor dans le forum Applets
    Réponses: 2
    Dernier message: 06/05/2003, 10h43
  5. Sysdate qui marche pas ??
    Par StouffR dans le forum Langage SQL
    Réponses: 4
    Dernier message: 28/08/2002, 13h23

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