Trier Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Sebyg
Membre fidèle
Membre fidèle
Messages : 406
Appréciations reçues : 3
Inscrit le : 14 février 2018
Version d'Excel : 2013

Message par Sebyg » 10 décembre 2018, 18:21

Personnellement quand j'ai mis ta macro a la place de ma macro 7 ça n'a rien changé. Le résultat est le même. Ça fonctionne chez toi ?
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'707
Appréciations reçues : 574
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 10 décembre 2018, 19:03

Re,
Bon, je n'ais pas vraiment testé !... :oops:
On va faire plus simple. ::D
Cdlt.
Trier.xlsm
(25.12 Kio) Téléchargé 4 fois
Public Sub Sort_Data()
Dim tbl, i As Long, j As Long, a, b, tmp
    tbl = ActiveSheet.Cells(2, 4).Resize(7).Value
    For i = 1 To UBound(tbl)
        For j = i To UBound(tbl)
            a = Val(Split(tbl(i, 1), " ")(0))
            b = Val(Split(tbl(j, 1), " ")(0))
            If b < a Then
                tmp = tbl(j, 1)
                tbl(j, 1) = tbl(i, 1)
                tbl(i, 1) = tmp
            End If
        Next j
    Next i
    ActiveSheet.Cells(2, 4).Resize(7).Value = tbl
End Sub
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Avatar du membre
Sebyg
Membre fidèle
Membre fidèle
Messages : 406
Appréciations reçues : 3
Inscrit le : 14 février 2018
Version d'Excel : 2013

Message par Sebyg » 11 décembre 2018, 08:39

Bonjour :)
J'ai testé une première fois ça fonctionnais très bien et là ça ne fonctionne plus.. J'ai voulu tester.
Crois-tu qu'il est possible que les lignes suivent ?
Trier.xlsm
(19.58 Kio) Téléchargé 4 fois
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'707
Appréciations reçues : 574
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 11 décembre 2018, 08:53

Bonjour,
ta question était posée pour le tri d'une colonne unique.
Tu envoies maintenant une plage de cellules à trier !?
Clos ce sujet et ouvre en un autre avec un fichier et pose précisément ta question.

Sinon, pour la procédure précédente qui ne fonctionne plus.
Tu as inséré un espace en début des chaînes de caractères
Ci-dessous, la révision :
Public Sub Sort_Data()
Dim tbl, i As Long, j As Long, a, b, tmp
    tbl = ActiveSheet.Cells(2, 4).Resize(7).Value
    For i = 1 To UBound(tbl)
        For j = i To UBound(tbl)
            a = Val(Split(Trim(tbl(i, 1)), " ")(0))
            b = Val(Split(Trim(tbl(j, 1)), " ")(0))
            If b < a Then
                tmp = tbl(j, 1)
                tbl(j, 1) = tbl(i, 1)
                tbl(i, 1) = tmp
            End If
        Next j
    Next i
    ActiveSheet.Cells(2, 4).Resize(7).Value = tbl
End Sub
Cdlt.
Modifié en dernier par Jean-Eric le 11 décembre 2018, 10:19, modifié 1 fois.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Avatar du membre
Sebyg
Membre fidèle
Membre fidèle
Messages : 406
Appréciations reçues : 3
Inscrit le : 14 février 2018
Version d'Excel : 2013

Message par Sebyg » 11 décembre 2018, 09:49

D'accord, excuse moi c'est que ça a évolué entre temps.

Merci Jean-Eric :oops:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Trier Listbox à l'ajout des données (Trier par date)
    par GGautier » 27 septembre 2019, 10:05 » dans Excel - VBA
    2 Réponses
    78 Vues
    Dernier message par GGautier
    30 septembre 2019, 11:02
  • Trier
    par cfn3cfn » 23 août 2016, 06:35 » dans Excel - VBA
    4 Réponses
    131 Vues
    Dernier message par cfn3cfn
    23 août 2016, 12:56
  • Trier
    par jsrrs » 1 mars 2017, 15:29 » dans Excel - VBA
    5 Réponses
    123 Vues
    Dernier message par jsrrs
    9 mars 2017, 15:38
  • Plus possible de trier !
    par baldwin » 27 février 2019, 02:55 » dans Excel - VBA
    5 Réponses
    77 Vues
    Dernier message par Steelson
    28 février 2019, 05:01
  • Trier
    par Meven » 5 novembre 2019, 19:21 » dans Excel - VBA
    5 Réponses
    65 Vues
    Dernier message par AFEH
    6 novembre 2019, 15:58
  • Trier
    par julienha01 » 10 novembre 2015, 15:27 » dans Excel - VBA
    3 Réponses
    136 Vues
    Dernier message par julienha01
    12 novembre 2015, 15:09