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 décroissant sans les vides au dessus


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut tri décroissant sans les vides au dessus
    bonjour,
    je débute et dans le tri descendant je voudrais supprimer les lignes vides qui passent au dessus car le tableau n'est parfois pas rempli en entier
    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
    Sub tridécroissant()
    '
    ' tridécroissant Macro
     
    '
    ' Touche de raccourci du clavier: Ctrl+b
    '
    ActiveSheet.Unprotect ("mdp")
        Range("B8:N41").Select
        Selection.Sort Key1:=Range("N8"), Order1:=xlDescending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
            ActiveSheet.Protect ("mdp")
            Range("A1").Select
    End Sub
    Merci

  2. #2
    Membre émérite

    Profil pro
    Inscrit en
    Mai 2007
    Messages
    514
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2007
    Messages : 514
    Par défaut
    Bonsoir,

    A tester, tri d'abord en ordre croissant, redefini la plage en excluant les lignes vides, puis tri en ordre decroissant.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Range("B8:N41").Sort Key1:=Range("N8"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    With Range(Range("B8"), Range("N41").End(xlUp))
        .Sort Key1:=Range("N8"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    End With
    Cordialement,

    Tirex28/

  3. #3
    Invité
    Invité(e)
    Par défaut merci
    Merci de m'aider
    je viens d'essayer mais le tri descendant n'est pas fait et une ligne d'au dessus passe en dessous avec
    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
    Sub tridécroissant()
    '
    ' tridécroissant Macro
    ' Macro enregistrée le 19/10/2008 par zzz
    '
    ' Touche de raccourci du clavier: Ctrl+b
    '
    ActiveSheet.Unprotect ("mdp")
       Range("B8:N41").Sort Key1:=Range("N8"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    With Range(Range("B8"), Range("N41").End(xlUp))
        .Sort Key1:=Range("N8"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    End With
            ActiveSheet.Protect ("mdp")
            Range("A1").Select
    End Sub

  4. #4
    Membre émérite

    Profil pro
    Inscrit en
    Mai 2007
    Messages
    514
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2007
    Messages : 514
    Par défaut
    Re,

    Oups !

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
       Range("B8:N41").Sort Key1:=Range("N8"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    With Range(Range("B8"), Range("N41").End(xlUp))
        .Sort Key1:=Range("N8"), Order1:=xlDescending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    End With
    Tirex28/

  5. #5
    Invité
    Invité(e)
    Par défaut merci
    Merci mais ça trie juste dans l'ordre croissant

    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
    Sub tridécroissant()
    '
    ' tridécroissant Macro
    ' Macro enregistrée le 19/10/2008 par zzz
    '
    ' Touche de raccourci du clavier: Ctrl+b
    '
    ActiveSheet.Unprotect ("mdp")
         Range("B8:N41").Sort Key1:=Range("N8"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    With Range(Range("B8"), Range("N41").End(xlUp))
        .Sort Key1:=Range("N8"), Order1:=xlDescending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    End With
            ActiveSheet.Protect ("mdp")
            Range("A1").Select
    End Sub

  6. #6
    Membre émérite

    Profil pro
    Inscrit en
    Mai 2007
    Messages
    514
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2007
    Messages : 514
    Par défaut
    Re,

    Peux tu montrer un échantillon représentatif de tes données et du résultat souhaité? La 1ere ligne (8) représente des titres ou des données?

    Tirex28/

Discussions similaires

  1. Calcul de la moyenne sans les champs vides
    Par roidurif dans le forum Requêtes et SQL.
    Réponses: 5
    Dernier message: 20/12/2013, 19h24
  2. [XL-2003] Classement décroissant des risques (sans cellule vide)
    Par AtomX dans le forum Excel
    Réponses: 4
    Dernier message: 26/01/2010, 11h56
  3. [Vxi3] Tri sur valeur décroissante mais sans les 'vides' en tête.
    Par tpeluchon dans le forum Deski
    Réponses: 4
    Dernier message: 07/12/2009, 11h50
  4. [E-03] Macro pour créer une liste sans les vides
    Par PYJ59 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 18/12/2008, 10h19
  5. tri a bulle sans les doublons
    Par comme de bien entendu dans le forum Algorithmes et structures de données
    Réponses: 4
    Dernier message: 10/03/2003, 16h29

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