XL 2010 Afficher une occurrence hors lignes masquées

[Mandoran]

Bonjour,

Je recherche la formule me permettant d'afficher la valeur la plus représentée d'une colonne mais sans tenir compte des lignes masquées.

Pour l'instant je n'ai que cette formule qui fonctionne sauf qu'elle tient compte des lignes masquées, ce que je souhaite pas.
=CAR(MODE(CODE(A2:A15)))

Est-ce que quelqu'un connaitrais la bonne formule svp?

je vous remercie par avance

 

[mapomme]

Bonjour Mandoran,

Une piste par formule et colonne auxiliaire. Voir fichier joint.

 

[mapomme]

Re,

Aussi avec CAR et CODE (onglet 'Feuil2')

edit : bonsoir @job75

 

[job75]

Bonjour Mandoran, mapomme,

Pas besoin de colonne auxiliaire, formule matricielle en A1 :

=MODE(SI(SOUS.TOTAL(103;DECALER(A2;LIGNE(A2:A15)-2;))=1;A2:A15))

Fichier joint.

A+

 

[Mandoran]

Bonjour mapomme, job75,

Je vous remercie pour votre aide.
J'avais omis de préciser que l’occurrence à afficher est du texte.

La formule du second onglet fourni par mapomme fonctionne bien toutefois je souhaiterais faire apparaître l'intégralité du texte.
Est-ce possible?

Je vous remercie par avance,
Cordialement

 

[mapomme]

Bonjour @Mandoran,

Toujours avec une colonne auxiliaire : voir onglet 'Feuil2'...

Pour une version sans colonne auxiliaire, attendre que job se mette au job

 

[zebanx]

Bonjour Mapomme, JOB75, Mandoran

Formule de notre regrettée Monique (mais qui ne semble pas prendre en compte les lignes masquées après revue).
=INDEX(nom;EQUIV(MAX(NB.SI(nom;nom));NB.SI(nom;nom);0))

@+
zebanx

 

[job75]

Bonjour Mandoran, mapomme, zebanx,

Fichier (2) avec cette formule matricielle en A1:

=INDEX(A2:A15;MODE(SI(SOUS.TOTAL(103;DECALER(A1;LIGNE(A2:A15)-1;))=1;EQUIV(A2:A15;A2:A15;0))))

A+

 

[Mandoran]

Bonjour,

C'est parfait, merci à tous pour votre aide

Bonne journée

 

[job75]

Bonjour Mandoran, le forum,

Si l'on veut que la casse soit respectée voyez le fichier joint et cette fonction VBA :

Function FrequenceMax(P As Range, Optional casse As Boolean)
Dim d As Object, i&, lig As Variant, a
Set d = CreateObject("Scripting.Dictionary")
If Not casse Then d.CompareMode = vbTextCompare
For i = 1 To P.Count
    If CStr(P(i)) <> "" And Not P(i).Rows.Hidden Then d(P(i).Value) = d(P(i).Value) + 1
Next
If d.Count = 0 Then FrequenceMax = "": Exit Function
a = d.keys
FrequenceMax = a(Application.Match(Application.Max(d.items), d.items, 0) - 1)
End Function

J'ai essayé de me passer du VBA mais je n'y suis pas arrivé.

A+