Tri de données ni ordre croissant, ni ordre decroissant...

Bonsoir yg_be,

Je n´ai pas trop saisi ta réponse, c´est pas la premiere fois tu me diras....

J´ai un premier tableau avec n lignes et dans ma 3 ieme colone j´ai la valeure 1,2,3 ou 4.

Je souhaite contruire un autre tableau a partir de ce premier tableau et que les valeur soit ordonnées de la facon suivante: 2-3-1-4.

Je ne saisi pas comment faire ma boucle sur mes n lignes de mon premier tableau et construire mon segond.

Merci d´avance de ta réponse

Ps: partager le fichier ne vaut pas trop le coup car je fais des requetes au serveur pour construire mes graphiques, je vais essayer de faire un fichier avec des données factices pour exemple. Donne moi 15 min.

Merci

https://www.cjoint.com/c/GKnugbT08B8

en feuille 1 mon tablea et en feuille 2 le résultat que je souhaite obtenir, cela me parrait pas si compliqué mais je n´y suis pas arrivé...

Dsl,

Je n´ai pas encore fait ma boucle pcq je ne sais pas comment procéder au tri...enfin une boucle ou j´efface les valeurs de mes tables mais pas d´importation de mes données...

 For Bi = 0 To UBound(V)
        Set Wsh = ThisWorkbook.Worksheets(V(Bi))
        Set Wsi = ThisWorkbook.Worksheets(V2(Bi))
        With Wsh
            If V2(Bi) = "MC GG" Then
            If .Range("A2") <> "" Then Range("TMCGG").EntireRow.Delete
'code de ma feuille V(Bi) a ma feuille V2(Bi)
            ElseIf V2(Bi) = "MC GM" Then
            If .Range("A2") <> "" Then Range("TMCGM").EntireRow.Delete
            ElseIf V2(Bi) = "MC MG" Then
            If .Range("A2") <> "" Then Range("TMCGP").EntireRow.Delete
            ElseIf V2(Bi) = "MC MG" Then
            If .Range("A2") <> "" Then Range("TMCMG").EntireRow.Delete
            ElseIf V2(Bi) = "MC MM" Then
            If .Range("A2") <> "" Then Range("TMCMM").EntireRow.Delete
            ElseIf V2(Bi) = "MC Otros" Then
            If .Range("A2") <> "" Then Range("TMCO").EntireRow.Delete
            ElseIf V2(Bi) = "MC Beta" Then
            If .Range("A2") <> "" Then Range("TMCBeta").EntireRow.Delete
            End If
        End With
    Next Bi

Je ne demande pas un code tout fait mais je solicite des pistes de recherches... pcq je galere depuis un petit moment maintenant....

Merci yg_be

 With Wsh
            NbLi = Application.WorksheetFunction.CountA(.Range("A:A")): ReDim DatosTemp(3, NbLi): j = 1
            For Ligne = 1 To 4
                For i = 2 To NbLi
                If .Range("F" & i).Value = 2 And Ligne = 1 Then
                    DatosTemp(1, j) = .Range("D" & i).Value
                    DatosTemp(2, j) = .Range("E" & i).Value
                    DatosTemp(3, j) = .Range("F" & i).Value
                    j = j + 1
                ElseIf .Range("F" & i).Value = 3 And Ligne = 2 Then
                    DatosTemp(1, j) = .Range("D" & i).Value
                    DatosTemp(2, j) = .Range("E" & i).Value
                    DatosTemp(3, j) = .Range("F" & i).Value
                    j = j + 1
                ElseIf .Range("F" & i).Value = 1 And Ligne = 3 Then
                    DatosTemp(1, j) = .Range("D" & i).Value
                    DatosTemp(2, j) = .Range("E" & i).Value
                    DatosTemp(3, j) = .Range("F" & i).Value
                    j = j + 1
                ElseIf .Range("F" & i).Value = 4 And Ligne = 4 Then
                    DatosTemp(1, j) = .Range("D" & i).Value
                    DatosTemp(2, j) = .Range("E" & i).Value
                    DatosTemp(3, j) = .Range("F" & i).Value
                    j = j + 1
                End If
                Next i
            Next Ligne
            ReDim Datos(1 To j - 1, 1 To 3)
            For iLi = 1 To j - 1
                For iCol = 1 To 3
                    Datos(iLi, iCol) = DatosTemp(iCol, iLi)
                Next iCol
            Next iLi
        End With

3 boucles, table temporaire, 2 variants, et 4 conditions ca le fait... Mais pcq j´ai que 4 valeur de catégories a ranger, si j´avais eu plus ceci ne conviendrait pas.

Je reste attentif a tout commentaire qui pourrait m´aider a progresser. Merci d´avance