XL pour MAC Référencer toutes les colonnes comportants des égalités

[OoloO]

Bonjour,
mon fichier référence la liste (L1 à L9 sur la première ligne) qui a reçu le plus de voix (en vert) dans chaque commune (col A).
La colonne L mentionne la liste gagnante et un signe "=" sur fond rouge quand il y a égalité.
J'aimerais qu'apparaisse le détail de ces égalités (par exemple L2=L7) mais je ne sais pas du tout comment faire.
Pouvez-vous m'aider ?
Merci.

 

[mapomme]

Bonjour @OoloO et bienvenue sur XLD😀,

Savoir que vous êtes sur MAC est loin d'être suffisant. C'est la version d'Excel qui importe.

Disposez-vous dans votre version d'Excel de la fonction CONCAT(), de la fonction JOINDRE.TEXTE ?

Un exemple avec ces deux fonctions:

edit: bonsoir @Hecatonchire😉.

 

[Hecatonchire]

Bonjour à toutes et tous,

Voir message #2
Je tente : =JOINDRE.TEXTE("=";VRAI;FILTRE($B$1:$J$1;B2:J2=N2))

 

[job75]

Bonjour OoloO, le forum,

MAC ou pas cette fonction VBA doit faire l'affaire :

Function G(titre As Range, ligne As Range, sep As String) As String
Dim maxi, i
maxi = Application.max(ligne)
For i = 1 To ligne.Columns.Count
    If ligne(i) = maxi Then G = G & sep & titre(i)
Next
G = Mid(G, Len(sep) + 1)
End Function

Le code doit être placé dans un module standard (Module1).

Formule en L2 à tirer vers le bas : =G(B$1:J$1;B2:J2;"-")

A+

 

[OoloO]

Bonjour mapomme,
la version excel est récente et dispose de ces deux fonctions.

Un grand merci pour ces formules que je vais essayer de maitriser mais qui m'apportent déjà la solution souhaitée.
Bonne journée.

Bonjour @OoloO et bienvenue sur XLD😀,

Savoir que vous êtes sur MAC est loin d'être suffisant. C'est la version d'Excel qui importe.

Disposez-vous dans votre version d'Excel de la fonction CONCAT(), de la fonction JOINDRE.TEXTE ?

Un exemple avec ces deux fonctions:

edit: bonsoir @Hecatonchire😉.

 

[OoloO]

Bonjour OoloO, le forum,

MAC ou pas cette fonction VBA doit faire l'affaire :

Function G(titre As Range, ligne As Range, sep As String) As String
Dim maxi, i
maxi = Application.max(ligne)
For i = 1 To ligne.Columns.Count
    If ligne(i) = maxi Then G = G & sep & titre(i)
Next
G = Mid(G, Len(sep) + 1)
End Function

Le code doit être placé dans un module standard (Module1).

Formule en L2 à tirer vers le bas : =G(B$1:J$1;B2:J2;"-")

A+

Bonjour job75,
merci pour ta réponse, je ne suis pas (encore) familiarisé à VBA et j'ai reçu une réponse concluante en utilisant des formules.
Je conserve bien sûr ta réponse pour m'initier à VBA.
Bonne journée.