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 :

Tri plusieurs colonnes


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Inscrit en
    Juillet 2013
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juillet 2013
    Messages : 1
    Par défaut Tri plusieurs colonnes
    Bonjour,
    Je débute en VB.
    Je souhaite effectuer un tri sur plusieurs colonnes.
    Pour les mesures ayant même nom de cycle et même nom d'assemblage, je souhaite conserver la ligne possédant le maximum pour l'epaisseur.
    En pièce jointe la macro que j'ai tenté de faire.
    Pouvez vous m'aider?
    Fichiers attachés Fichiers attachés

  2. #2
    Membre expérimenté
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Novembre 2011
    Messages
    163
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Novembre 2011
    Messages : 163
    Par défaut
    Bonjour,

    C'est pas super optimisé, mais ça doit fonctionner comme ç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
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    Sub Tri()
    Dim wsSheet As Worksheet
    Dim Valeur(4)
    For Each wsSheet In Worksheets
    If wsSheet.Name = "Max" Then Sheets("Max").Delete
    Next
    Sheets.Add.Name = "Max"
     
      Sheets("toto").Activate
      Bas = Range("A1000").End(xlUp).Row + 1
      Range("A2:D" & Bas).Select
          Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2") _
            , Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
            xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
            xlSortNormal
     
        Selection.Copy
        Sheets("Max").Paste
        Sheets("Max").Activate
     
    j = 0
    For i = 1 To Bas
    j = j + 1
    Valeur(1) = Range("A" & j).Value
    Valeur(2) = Range("D" & j).Value
    Valeur(3) = Range("A" & j + 1).Value
    Valeur(4) = Range("D" & j + 1).Value
    If Valeur(1) = Valeur(3) And Valeur(2) = Valeur(4) Then Rows(j).Delete: j = j - 1
    Next
    End Sub
    Edit :
    Pour l'explication du fonctionnement, il suffit de trier ton tableau par ordre croissant (clé1=Colonne A, clé2 = colonne D, clé3 = colonne C).
    On copie/colle le tableau trié.
    On test chaque ligne avec la suivante.
    Si cycle et assemblage sont identiques sur la ligne suivante, on supprime la ligne en cours.

Discussions similaires

  1. Réponses: 2
    Dernier message: 06/09/2007, 15h08
  2. Réponses: 8
    Dernier message: 26/07/2007, 11h46
  3. [Tableaux] tri sur plusieurs colonnes
    Par melisse dans le forum Langage
    Réponses: 2
    Dernier message: 22/02/2007, 09h51
  4. Réponses: 7
    Dernier message: 10/03/2006, 19h09
  5. Tri sur plusieurs colonnes
    Par soso78 dans le forum Access
    Réponses: 2
    Dernier message: 04/03/2006, 15h28

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