Trier un tableau dans une liste par ordre décroissante

Bonjour le forum

comme indiqué au titre du sujet , je veux que vous m'aider à trier un tableau ver une liste comme le montre le fichier ci joint

et merci d'avance

12tableau-liste.xlsx (9.91 Ko)

bonjour,

une solution faite sur mesure pour ton exemple.

Sub aargh()
    Dim i&, j&
    Range("O9").Resize(90, 3).Clear
    For i = 17 To 8 Step -1
        If Application.Sum(Cells(i, 5).Resize(, 9)) > 0 Then
            Range("E7:M17").Sort key1:=Cells(i, "E"), order1:=xlDescending, Orientation:=2, Header:=xlNo
            For j = 5 To 13
                If Cells(i, j) > 0 Then
                    k = k + 1
                    Cells(k + 8, "O") = k
                    Cells(k + 8, "P") = Cells(7, j)
                    Cells(k + 8, "Q") = Cells(i, "D")
                Else
                    Exit For
                End If
            Next j
        End If
    Next i
    Range("E7:M17").Sort key1:=Cells(7, "E"), order1:=xlAscending, Orientation:=2, Header:=xlNo
End Sub

Bonjour,

Salut h2so4

Une autre approche en formules matricielles ... (rien à faire ...)

En espèrant que cela t'aide ...

8tableau-liste.xlsx (11.78 Ko)

veuillez l'adapter a ce fichier

veuillez l'adapter a ce fichier

De rien ...

P.S. H2so4 sera sans doute d'accord ...

veuillez l'adapter a ce fichier

pardon ?

P.S. H2so4 sera sans doute d'accord ...

oh que oui.

veuillez l'adapter a ce fichier

pardon ?

Je le savais ... !!!

veuillez l'adapter a ce fichier

pardon ?

P.S. H2so4 sera sans doute d'accord ...

oh que oui.

Mieux vaut en rire .... à gorge déployée ...

les amis j ai pas pu adapter ni le macro ni la proposition des formules sur mon fichier originale

j ai re-telecharger le fichier "tableau - liste 2.xlsx" dans ma dernière participation

*veuillez l'adapter et merci infiniment

*veuillez l'adapter et merci infiniment

j'ai vraiment pas envie et j'espère que tu essaieras de comprendre pourquoi.

veuillez l'adapter a ce fichier

J'en ai vraiment pas envie .... et j'espère que tu essaieras de comprendre pourquoi ... ( me too !!! )

je suis débutant au Excel mais bah , en tous cas merci infiniment pour votre passage et pour votre aide

et si quelqu'un d'autre " a l'envie " de m'aider ça me fait un grand plaisir merci

Bonjour,

quelle est ta langue maternelle ?

Bonjour,

quelle est ta langue maternelle ?

عربي

Et bien je comprends un peu mieux.

je peux te dire que ta manière de t'exprimer en français est particulièrement grossière et peu respectueuse de ceux qui te proposent de l'aide, ce qui ne donne absolument pas envie de t'aider davantage.

Et bien je comprends un peu mieux.

je peux te dire que ta manière de t'exprimer en français est particulièrement grossière et peu respectueuse de ceux qui te proposent de l'aide, ce qui ne donne absolument pas envie de t'aider davantage.

Nous avions d'un côté toute une série de petits bâtonnets ...

et de l'autre toute une série de petits points ...

Et voilà .... que l'on retrouve .... Tous les points sur les

Malgré que c'est plus le cas mais J ai plus besoin de cette aide de ta part en cas

Malgré que c'est plus le cas mais J ai plus besoin de cette aide de ta part en cas

Google Translate est ton ami ...

[b]

شكرا[/b]

Malgré que c'est plus le cas mais J ai plus besoin de cette aide de ta part en cas

Google Translate est ton ami ...

[b]

شكرا[/b]

2 langues supplémentaire à ma langue maternelle, même si ils sont pas assez bon, cest pas moch de tous cher "envie et points sur les i"

Rechercher des sujets similaires à "trier tableau liste ordre decroissante"