Recherche & affichage du maximum des sommes

Tibo

XLDnaute Barbatruc

• 22 Août 2010

• #2

Re : Recherche & affichage du maximum des sommes

Bonsoir,

Sous réserve d'avoir bien compris, un essai avec une formule matricielle :

Code:

=INDEX($A$2:$A$79;EQUIV(MAX(SOMME.SI(A2:A79;A2:A79;B2:B79));SOMME.SI(A2:A79;
A2:A79;B2:B79);0))

Formule matricielle à valider par CTRL + MAJ + ENTREE

Pour le nombre d'occurrences, un simple NB.SI sur le résultat de la formule proposée devrait suffire

@+

 

Vote positif 0 Vote négatif

A

alphasys

Guest

• 22 Août 2010

• #3

Re : Recherche & affichage du maximum des sommes

Bonsoir,
Quelle réactivité, 1000 fois mercis et bravo.
C'est tout à fait çà. Je me suis cependant trompé dans ma seconde requete qui est celle-ci :
Quel est le code dont le nombre d'occurence est la plus importante ?
Merci d'avance.
Alphasys

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 23 Août 2010

• #4

Re : Recherche & affichage du maximum des sommes

Bonsoir Alphasys, Tibo, bonsoir le forum,

Pour la deuxième requête uns proposition VBA :

Code:

Sub Macro1()
Dim maxi As Long 'déclare la variable maxi
Dim nb As Long 'déclare la variable nb (NomBre d'occurrences)
Dim cel As Range 'déclare la variable cel (CELlule)
 
maxi = 0 'définit la variable maxi
'boucle sur toutes les cellules éditées cel de la colonne A
For Each cel In Range("A2:A" & Range("A65536").End(xlUp).Row)
    'définit la variable nb
    nb = Application.WorksheetFunction.CountIf(Range("A2:A" & Range("A65536").End(xlUp).Row), cel.Value)
    'si nb > maxi, alors maxi prend la valeur de la cellule cel
    If nb > maxi Then maxi = cel.Value
Next cel 'prochaine cellule éditée cel de la plage
MsgBox maxi 'message affichant la cellule dont la valeur est répétée le plus de fois
'ne gère pas les ex aequo...
End Sub

Mais je suis sûr que Tibo va te pondre une formule dont il a le secret...

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 23 Août 2010

• #5

Re : Recherche & affichage du maximum des sommes

Bonsoir tout le monde,

Quel est le code dont le nombre d'occurence est la plus importante ?
Je dirais :
=INDEX(A2:A79;EQUIV(MAX(NB.SI(A2:A79;"="&(A2:A79)));NB.SI(A2:A79;"="&(A2:A79));0))
Formule matricielle à valider par shift+ctrl+entrée.
Ramène le 1er code si plusieurs répondent à la question.

eric

 

Vote positif 0 Vote négatif

A

alphasys

Guest

• 23 Août 2010

• #6

Re : Recherche & affichage du maximum des sommes

Bonjour,

Génial, merci, mais j'ai une dernière requête : je souhaiterai que le résultat ne tienne pas compte des lignes vides.

Merci

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 23 Août 2010

• #7

Re : Recherche & affichage du maximum des sommes

Bonjour,

Peux-tu être plus précis ?

Les lignes vides, elles sont à la fin, ou bien entre plusieurs lignes de ton tableau ?

N'hésite pas à rejoindre un fichier exemple avec ces lignes vides.

A te (re)lire

@+

 

Vote positif 0 Vote négatif

A

alphasys

Guest

• 23 Août 2010

• #8

Re : Recherche & affichage du maximum des sommes

Bonjour,

Les lignes vides sont à la fin, mais j'utilise dans les formules des noms de plage qui contiennent ces lignes vides. Le résultat qu'il me retourne est donc 0 à cause du nombre de lignes vides. J'espère avoir été clair.
Merci

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 23 Août 2010

• #9

Re : Recherche & affichage du maximum des sommes

re,

Tu peux définir des noms de plage de faon dynamique avec la fonction DECALER :

Insertion - Nom - Définir - Nom : Plage_codes - Fait référence à :

Code:

=DECALER(Feuil1!$A$1;1;0;NBVAL(Feuil1!$A:$A)-1)

Je te laisse essayer

@+

 

Vote positif 0 Vote négatif