Microsoft 365 Classement par ordre d'arrivée

Etienne G · 12 Février 2024

Bonjour à vous,
Cela fait bien longtemps que je ne m'étais pas tourné vers ce forum et j'espère qu'une personne arrivera à me dépatouiller de ce sujet qui me semblait si simple...

Je vais avoir un ensemble de colonnes avec à l'intérieur des catégories. Je veux créer une liste déroulante pour choisir la désignation qui m'intéresse. Et je souhaite que mes désignations se range dans une phrase ; mais, je veux que cette phrase se construisent dans l'ordre dans laquelle j'aurais fait mes choix, et non au kilomètre de la gauche vers la droite.

Je souhaite pouvoir garder cette lecture en colonne avec tous les paramètres devant les yeux et car à la fin, ils seront très nombreux et j'aurais besoin de pouvoir tous les voir.

Je ne suis pas du tout un utilisateur EXPERT d'Excel et j'aimerais éviter le VBA, sauf en cas de copier coller simple

Mon épouse qui n'est pas mauvaise en Excel s'est gratté la tête, j'espère que ce ne sera pas votre cas

DJunqueira · 15 Février 2024

Bonjour
Avec un peu plus d'attention...

=LET(t;TRANSPOSE(D6:H7);JOINDRE.TEXTE(", ";1;INDEX(TRI(FILTRE(t;INDEX(t;;2)<>""));;2)))

sylvanu · 12 Février 2024

Bonjour Etienne,
Pas tout compris : Dans votre PJ le résultat en B3 est correct, non ?
Si oui, quel est le souci ?

sylvanu · 12 Février 2024

Re,
Si le problème est que le nombre de colonnes est conséquent, alors peut être une fonction perso.
Le nombre de colonne est sans importance.

VB:

Function Phrase(x)
Application.Volatile
Dim DC%, i%, j%, Buffer, T
DC = Cells(8, Columns.Count).End(xlToLeft).Column                               ' Dernère colonne utilisée en lig 7
T = Range(Cells(6, 2), Cells(7, DC))                                            ' Lignes 6 et 7 dans tableau T
For i = 1 To UBound(T, 2)                                                       ' Tri croissant sur ligne 6
    For j = i To UBound(T, 2)
        If T(1, i) > T(1, j) Then
            Buffer = T(1, i): T(1, i) = T(1, j): T(1, j) = Buffer
            Buffer = T(2, i): T(2, i) = T(2, j): T(2, j) = Buffer
        End If
    Next j
Next i
For i = 1 To UBound(T, 2)                                                       ' Concaténation des paramètres
    If T(1, i) <> "" Then Phrase = Phrase & T(2, i) & ", "
Next i
If Phrase <> "" Then Phrase = Mid(Phrase, 1, Len(Phrase) - 2) Else Phrase = ""  ' Suppression du "," final
End Function

La syntaxe de la focntion est : "phrase(0) ( implémentée dans la PJ en B3 )

DJunqueira · 12 Février 2024

Solution avec formule (E3).

=JOINDRE.TEXTE(", ";1;CHOISIRCOLS(B7:F7;TOCOL(FILTRE(B6:F6;B6:F6<>""))))

Etienne G · 15 Février 2024

Bonjour à vous ! Merci pour vos réponses (et désolé pour le temps de réponse de la mienne, je n'arrivais pas à me connecter et je n'avais pas activer les notifications - sorry.)

Je vais regarder vos réponses ce jour.

Etienne G · 15 Février 2024

Re, je viens de balayer vos deux solutions qui ne sont hélas, pas celle attendue - mais je vous remercie déjà vivement d'avoir pris du temps. Les deux impliques que je déclare l'ordre chiffré manuellement.
Je n'ai peut-être pas été assé explicatif dans ma recherche de solution. Je vous joins le fichier avec quelques explications supplémentaires, si vous avez encore envie

DJunqueira · 15 Février 2024

Bonjour
Avec un peu plus d'attention...

=LET(t;TRANSPOSE(D6:H7);JOINDRE.TEXTE(", ";1;INDEX(TRI(FILTRE(t;INDEX(t;;2)<>""));;2)))

Etienne G · 15 Février 2024

DJunqueira à dit:
Bonjour
Avec un peu plus d'attention...

Clap Clap Clap !!! Bravo - super - et Merci ! DJunqueira - tout fonctionne ! Je ne comprends pas pour le moment la formule et sur surtout LET et t, mais je vais creuser ! Merci encore, ca va me débloquer ce projet d'envergure !

DJunqueira · 15 Février 2024

Merci, merci Etienne, je suis très heureux de t'aider dans ton projet, j'espère que tu le mèneras jusqu'au bout. Bonne chance.

LET est très simple, c'est une fonction qui permet de créer des variables qui permettent de simplifier la formule afin que vous n'ayez pas besoin de refaire le calcul pour arriver au même résultat. 't' n'est qu'une variable, il peut s'agir de n'importe quel groupe de lettres.

Microsoft 365 Classement par ordre d'arrivée

Etienne G

XLDnaute Nouveau

Pièces jointes

DJunqueira

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

DJunqueira

XLDnaute Occasionnel

Pièces jointes

Etienne G

XLDnaute Nouveau

Etienne G

XLDnaute Nouveau

DJunqueira

XLDnaute Occasionnel

Pièces jointes

Etienne G

XLDnaute Nouveau

DJunqueira

XLDnaute Occasionnel

Discussions similaires