Classement texte exaequo dans une même cellule

Bonjour a tous ! voila, je cale sur une formule...

Ma question :

j'ai en C7 ; C1000 -dans une meme colonne- une suite de 5 noms. ex: pierre, jean, paul, alain, patrice.

Et je voudrai que la cellule C5, m'affiche les noms qui reviennes .

Exemple:

C7 pierre

C8 pierre

C9 patrice

C10 alain

C11 paul

C12 jean

C13 jean

Ici, pierre et jean revienne le meme nombre de fois. JE voudrai donc ce genre d'affichage dans la cellule C5 = Pierre , Jean.

Les exaequo, dans une meme cellule pour une colonne !

merci a tous !

bonjour

n'as tu pas assez de place pour un nom par cel ? sur une ligne

met un fichier joint ( un vrai ,pas une foto)

cordialement

Merci de l’intérêt déjà ! j

e t'envoie le excel d'exemple...

Bonsoir,

une solution via une macro

Sub aargh()
    With Sheets("Feuil1")
        dl = .Cells(Rows.Count, 4).End(xlUp).Row
        mx = 0
        Set d = CreateObject("scripting.dictionary")
        For Each c In .Range("D2:D" & dl)
            k = c.Value
            d.Item(k) = d.Item(k) + 1
            If d.Item(k) > mx Then mx = d.Item(k)
        Next
        p = ""
        For Each k In d.keys
            If d.Item(k) = mx Then p = p & sep & k: sep = ", "
        Next
        .Range("L8") = p
    End With
End Sub

merci pour la reponse ,

mais la ça dépasse , mes compétences... je ne sais même pas ou enregistrer les macros... y a til moyen de les evitées?

ok ! j'ai reussi a l'installer... ca marche mais faut executer la macros manuellement a chaque fois ... je voudrai que la cellule se mette a jours toute seule , car je vais lapeler dans une autre feuilles !!!

en tous cas felicitation pour cette programmation

d'autant que je vais faire la meme choses sur plusieurs feuilles et je vien de mapercevoir qu"avec cette macro je ne pourrai pas ...

C'etait bien joué....

bonjour

une contribution avec une matricielle suicidaire en colonne M

cordialement

tulipe !

non ca ne marche pas ...

ca se cumule dans la case classement, et chaque jours je vais marquer des noms il faut que la case de classement reagisse automatiquement a me mettre les differentes solutions...

la dans la colonne M , et dans la case classement, les noms sacumule ... pas bon...Je voudrai eviter les macros car je vais reiterer dans plusieurs feuilles...

Merci quand meme ...

re

donc il y a une notion de date ??

Et non ! juste je vais completer chaque jour la colonne avec un nom par cellule.

et donc si il y a des noms qui sont exaequo , juste qu'ils apparaissent dans la meme autre cellules.

En résumé les noms qui se partagent la plus grande valeur aparraissent dans lautre cellule.

c1 Paul

c2 Paul

c3 jean

c4 jean

c5 jean

c6 patrice

c7 patrice

c8 hervé

c9 hervé

c10 loic

D5 autre cellule : Jean

SI MAINTENANT LE LENDEMAIN JE RAJOUTE UN AUTRE PRENOMS :

c1 Paul

c2 Paul

c3 jean

c4 jean

c5 jean

c6 patrice

c7 patrice

c8 hervé

c9 hervé

c10 loic

c11 Paul

D5 autre cellule : Paul ; Jean ;

Bonjour,

solution avec une fonction personnalisée

appel de la fonction, formule à mettre dans une cellule

=classexq(plage)

copie de la fonction intégrée dans le classeur joint

Function classexq(r)
    mx = 0
    Set d = CreateObject("scripting.dictionary")
    For Each c In r
        k = c.Value
        If k = "" Then Exit For
        d.Item(k) = d.Item(k) + 1
        If d.Item(k) > mx Then mx = d.Item(k)
    Next
    p = ""
    For Each k In d.keys
        If d.Item(k) = mx Then p = p & sep & k: sep = ", "
    Next
    classexq = p
End Function

CA MARCHE !!!!

j'ai galerer a comprendre quil fallait creer dans VBA un module , mais la formule est juste parfaite !

Vous les programmeurs, j'ai un immense respect ! vous me faites haluciner !

Merci a ceux qui ont pris le temps de me repondre et d'avoir trouver la solution...

Grande classe