XL 2010 Afficher une occurrence hors lignes masquées

mapomme

XLDnaute Barbatruc

Supporter XLD

• 7 Septembre 2018

• #2

Bonjour Mandoran,

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

 

Pièces jointes

• Mandoran- comptage sauf lignse masquées- v1.xlsx

  12.1 KB · Affichages: 19

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 7 Septembre 2018

• #3

Re,

Aussi avec CAR et CODE (onglet 'Feuil2')

edit : bonsoir @job75

 

Pièces jointes

• Mandoran- comptage sauf lignse masquées- v2.xlsx

  15 KB · Affichages: 8

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Septembre 2018

• #4

Bonjour Mandoran, mapomme,

Pas besoin de colonne auxiliaire, formule matricielle en A1 :

Code:

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

Fichier joint.

A+

 

Pièces jointes

• Mandoran(1).xlsx

  16.7 KB · Affichages: 18

Vote positif 0 Vote négatif

M

Mandoran

XLDnaute Nouveau

• 10 Septembre 2018

• #5

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

 

Pièces jointes

• Mandoran- comptage sauf lignse masquées- v1.xlsx

  15 KB · Affichages: 9

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 10 Septembre 2018

• #6

Bonjour @Mandoran,

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

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

 

Pièces jointes

• Mandoran- comptage sauf lignse masquées- v2.xlsx

  15.1 KB · Affichages: 14

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 10 Septembre 2018

• #7

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

 

Pièces jointes

• formule_max_chaine caractères.xls

  27 KB · Affichages: 12

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2018

• #8

Bonjour Mandoran, mapomme, zebanx,

Fichier (2) avec cette formule matricielle en A1:

Code:

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

A+

 

Pièces jointes

• Mandoran(2).xlsx

  20.6 KB · Affichages: 16

Vote positif 0 Vote négatif

M

Mandoran

XLDnaute Nouveau

• 11 Septembre 2018

• #9

Bonjour,

C'est parfait, merci à tous pour votre aide

Bonne journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Septembre 2018

• #10

Bonjour Mandoran, le forum,

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

Code:

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+

 

Pièces jointes

• Mandoran avec casse(1).xlsm

  26.4 KB · Affichages: 8

Vote positif 0 Vote négatif