Fonction de tri d'un range de cellules Fermé

Question

Bonjour,

Je suis novice en VBA et je bute sur un problème basique: Trier une plage de cellules passée en paramètre à une fonction. La liste triée est renvoyée sous forme d'une chaine concaténée.

Function TrierPlage(plage As Range) As String
    Dim rep As String, c As Range
    
    plage.Sort Key1:=plage, Order1:=xlAscending, Header:=xlNo
    
'    For i = 1 To plage.Count
'        MsgBox plage(i)
'    Next i
    
    For Each c In plage
         rep = rep & " " & c.Value
    Next c
    TrierPlage = rep
End Function

En l'état, en appliquant cette fonction sur 3 cellules ayant pour valeur 1, 3, 2, j'obtiens la chaine "1 3 2". La fonction de tri est donc ici inopérante. Bien sûr je m'attendais à avoir "1 2 3".

Merci d'avance pour vos conseils et remarques,
Bonne journée,
Mockup

f894009 · Answer

Bonjour,

J'ai teste votre code et le tri se fait correctement !!!!!!!

rectification, marche pas a tout coup si appel d'une cellule, si vba pas de probleme??

comment appelez-vous cette fonction ??

mockup · Answer

Bonjour,

J'appelle effectivement cette fonction d'une cellule et je n'ai jamais réussi à voir un résultat correct.

Merci pour votre test.
Cordialement.

f894009 · Answer

Re,

en attendant, vous pouvez utilisez ceci, appelle d'une cellule ou autre

'
' Tri de Shell - Shell Sort adapté pour tri plage de cellules
'
Function TrierPlage(plage As Range, Optional ByVal loBound As Long = -1, Optional ByVal upBound As Long = -1) As String
    Dim i As Long, j As Long, h As Long, v As Long, t()
    Dim rep As String
    
    'mise en tableau de la plage de cellules
    t = Application.Transpose(plage)
    'debut de tableau
    If loBound = -1 Then
        loBound = LBound(t())
    End If
    'fin de tableau
    If upBound = -1 Then
        upBound = UBound(t())
    End If

    h = loBound
    Do
        h = 3 * h + 1
    Loop Until h > upBound
      
    Do
        h = h / 3
        For i = h + 1 To upBound
            v = t(i): j = i
            Do While t(j - h) > v
                t(j) = t(j - h): j = j - h
                If j <= h Then
                    Exit Do
                End If
            Loop
            t(j) = v
        Next i
    Loop Until h = loBound
    'ecriture de la chaine de valeurs triées
    For i = 1 To upBound
        rep = rep & " " & t(i)
    Next
    
    TrierPlage = rep
End Function

A+

eriiic · Answer

Bonjour,

Une fonction personnalisée ne peut pas modifier son environnement sur une feuille, elle retourne une valeur c'est tout.
plage.Sort n'a  aucune chance d'être réalisé.
Il faut faire faire le tri par la macro, comme proposé par f894009.

eric

ronmubar · Answer

Il n'y a peut-être pas besoin d'une macro pour effectuer cette opération, la fonction tri est capable de trier une plage sur plusieurs champs : onglet Données > Trier. Et dans la fenêtre il faut choisir la liste des champs sur lesquels baser le tri.

f894009 · Answer

Bonjour ronmubar,

Il n'y a peut-être pas besoin d'une macro pour effectuer cette opération dans le contexte voulu par mockup: oui, il faut passer par du VBA

mockup · Answer

Bonjour et merci à tous pour vos réponses :).

Sur la remarque d'Eric, je voudrais préciser que mon besoin n'est pas de modifier les cellules sources mais de les utiliser pour générer une valeur affichée dans autre cellule (chaine retournée). Dans mon contexte, plage.Sort n'est peut-être pas appropriée mais je suis étonné qu'il n'y ait pas une solution équivalente, quitte à copier les valeurs de la plage source dans un objet temporaire qui supporterait nativement la fonctionnalité de tri.

À défaut, l'algo de tri de f894009 est un pis-aller (qui fonctionne avec des entiers). À terme, il me faudra une solution qui supporte le tri de tout type de donnée (date, texte, décimal...).

Si quelqu'un dispose d'une solution générique, je suis preneur !

Merci d'avance et bonne journée à tous,
Mockup

Fonction de tri d'un range de cellules

7 réponses

Discussions similaires