XL 2019 liste triée et séparée par des virgules

[rocornet]

Bonjour,
Après plusieurs essais, je n'arrive pas à créer une liste de données séparées par des virgules tout en respectant une condition suplémentaire.

Cette liste (qui doit apparaître en J7)devrait indiquer les ingrédients dans l'ordre de quantité de la recette (de la plus grande à la plus petite)
-> dans ce cas:
Oeuf entier, Sucre cristal, Jaune d'oeufs

Le problème c'est que je ne peux pas classer les ingrédients en C selon leur quantité, ils doivent rester dans cet ordre là.

Je pensait peut-être passer une macro. Est-ce quelqu'un pourrait me donner un coup de pouce ?

 

[sylvanu]

Bonsoir Rocornet,
Un essai en PJ avec :

Option Explicit: Option Base 1
Sub Liste()
    Application.ScreenUpdating = False
    Dim T, i%, j%, Buffer, Chaine$
    T = Range("C3:D" & [D65500].End(xlUp).Row)  ' Transfert données dans tableau T
    For i = 1 To UBound(T)                      ' Tri tableau par poids décroissant
        For j = 1 To UBound(T)
            If T(i, 1) > T(j, 1) Then
                Buffer = T(i, 1): T(i, 1) = T(j, 1): T(j, 1) = Buffer
                Buffer = T(i, 2): T(i, 2) = T(j, 2): T(j, 2) = Buffer
            End If
        Next j
    Next i
    For i = 1 To UBound(T)                      ' Concaténation résultat
        If T(i, 2) <> "" Then Chaine = Chaine & "," & T(i, 2)
    Next i
    [J7] = Mid(Chaine, 2)                       ' Restitution résultat avec suppression première virgule
End Sub

Question : Pourquoi utiliser un format obsolète comme xls alors qu'avec XL2019 vous pouvez utiliser le format xlsm ?

 

[rocornet]

Je vais essayer merci.
Je dois effectivement transformer le fichier. On me l'a envoyé comme ça, j'ai pas eu le reflexe.

 

[rocornet]

C'est tout bon !!
ça marche parfaitement un tout grand merci !!!!!!