Tri dans tableau mémoire VBA

Question

Je rencontre un problème de trier dans une variable tableau à deux dimensions : Range("A1:B4"). Voici la situation de départ : A B 4 f 2 r 1 f 3 d Voici le résultat vsouhaité : A B 1 f 2 r 3 d 4 f Lorsque j'ai déclaré et trié le tableau avec une seule dimension (Colonne A) tout va bien quand je lance la vérif , le trie se fait : Sub Tri_Tableau_crois() Dim Valeur As Integer Dim i As Integer Dim Cible As Variant Dim tableau() As Single 'Remplissage tableau avec la plage de cellules A1:A4 ReDim tableau(0 To 3) For i = 0 To UBound(tableau()) tableau(i) = Cells(i + 1, 1) Next i Do 'tri croissant Valeur = 1 For i = 0 To UBound(tableau) - 1 If tableau(i + 1) &lt; tableau(i) Then Cible = tableau(i + 1) tableau(i + 1) = tableau(i) tableau(i) = Cible Valeur = 0 End If Next i Loop While Valeur = 0 'vérification du tri croissant Range("C1") = tableau(2) End Sub Mais je n'arrive pas à trier l'ensemble du tableau avec les deux dimensions (A et B) sur la base de la Colonne A (Comme expliqué ci-haut dans résultat souhaité) ! Merci de m'aider :)...

BsAlv · Accepted Answer

@LouReed

le 2ième parametre est, vous avez raison, la colonne.

le 3ième parametre de "application.sort" est optional, standard =1 (ordre croissant) ou autrement -1 (ordre descendant)

a = Application.Sort(Range("A1:B4").Value, 1,-1)

Ceci fonctionne pour excel 2021-365, (peut-être 2019 ???)

Invité · Answer

Concernant les tableaux et les tris, tu pourras trouver ton bonheur sur le site de notre regretté BOISGONTIER http://boisgontierj.free.fr/ Voici un exemple de code Option Compare Text Sub TriTableau2D() Dim a() a = &#91;A2:B6&#93;.Value ' Tableau 2D Tri a(), 1, LBound(a, 1), UBound(a, 1) &#91;D2&#93;.Resize(UBound(a, 1), UBound(a, 2)).Value2 = a End Sub Sub Tri(a(), ColTri, gauc, droi) ' Quick sort ref = a((gauc + droi) \ 2, ColTri) g = gauc: d = droi Do Do While a(g, ColTri) &lt; ref: g = g + 1: Loop Do While ref &lt; a(d, ColTri): d = d - 1: Loop If g &lt;= d Then For k = LBound(a, 2) To UBound(a, 2) temp = a(g, k): a(g, k) = a(d, k): a(d, k) = temp Next k g = g + 1: d = d - 1 End If Loop While g &lt;= d If g &lt; droi Then Call Tri(a, ColTri, g, droi) If gauc &lt; d Then Call Tri(a, ColTri, gauc, d) End Sub A+...

BsAlv · Answer

Est-ce que vous avez excel 2021-365 ? Alors, trier avec un clé est possible. Sub trier() a = Application.Sort(Range("A1:B4").Value, 1) Range("D1").Resize(UBound(a), UBound(a, 2)).Value = a End Sub...

LouReeD · Answer

Simple et efficace, mais cela ne prend que l'ordre croissant ? Je comprend que le "1" correspond à la première colonne de la plage est ce bien cela @ bientôt LouReeD...

Invité · Answer

Et ma réponse est zappée 🤔😕...

BsAlv · Answer

Re, un tri avec x (indéfini) colonnes, individuellement xlascending ou xldescending, avec au maximum 9.999 valeurs unique par colonne. Sub trier() Dim a, SCA Set SCA = CreateObject("system.collections.arraylist") a = Range("A1").ListObject.DataBodyRange.Value 'lire dans une matrice ReDim Preserve a(1 To UBound(a), 1 To 3) 'ajouter une colonne auxiliaire For i = 1 To UBound(a) 'boucle If Not SCA.contains(a(i, 1)) Then SCA.Add a(i, 1) 'ajouter les valeurs unique au SCA Next SCA.Sort 'trier le SCA t = SCA.toarray 'lire SCA vers une matrice For i = 1 To UBound(a) 'boucle cette matrice a(i, 3) = Format(Application.Match(a(i, 1), t, 0), "0000|") '3ieme colonne, créer un cle pour trier Next SCA.Clear 'vider le sCA For i = 1 To UBound(a) 'boucle cette matrice If Not SCA.contains(a(i, 2)) Then SCA.Add a(i, 2) 'ajouter les valeurs unique au SCA Next SCA.Sort 'trier SCA.Reverse 'inverser le trie = XLDESCENDING !!!!! t = SCA.toarray 'lire sca vers matrice For i = 1 To UBound(a) 'oucle cette matrice a(i, 3) = a(i, 3) & Format(Application.Match(a(i, 2), t, 0), "0000|") 'ajouter 2ième clé à la 3ieme colonne Next a1 = Application.Sort(a, 3, -1) 'nouvelle matrice = matrice original, trié sur la 3ième colonne XLDESCENDING Range("D2").Resize(UBound(a1), UBound(a1, 2)).Value = a1 'coller le resultat End Sub...

3GB · Answer

Voici une autre fonction pour un tableau à 2 dimensions proche de celle que vous utilisiez : Function SortArray(ByVal t, Optional SortField As Byte = 1) For i = LBound(t) To UBound(t) - 1 If CStr(t(i, SortField)) &gt; CStr(t(i + 1, SortField)) Then For k = LBound(t, 2) To UBound(t, 2) temp = t(i + 1, k) t(i + 1, k) = t(i, k) t(i, k) = temp Next k i = Application.Max(LBound(t) - 1, i - 2) End If Next i SortArray = t End Function A utiliser ainsi dans votre cas pour trier sur la 3è colonne : TabTrié = SortArray(TabBrut, 3) C'est un tri ascendant par défaut mais il est possible de paramétrer l'ordre de tri. Cdlt...

BsAlv · Answer

Re, triage combiné, 2 clés, 1ière colonne xlascending, 2ième colonne xldescending pour version excel &lt;2021-365...

LouReeD · Answer

BsAlv : une référence à mettre en place ? @ bientôt LouReeD...

BsAlv · Answer

@LouReeD BsAlv : une référence à mettre en place ? je ne comprends pas la question, vous demandez de l'explication supplémentaire ? (sorry, en anglais) https://exceljet.net/excel-functions/excel-sort-function...

3GB · Answer

@LouReed : La référence à ajouter est indiquée sur ce lien : https://www.automateexcel.com/fr/vba/objet-arraylist/ mais n'est pas obligatoire si l'on choisit la liaison tardive comme l'a fait BsAlv.

Cdlt,