Recherche & affichage du maximum des sommes

[alphasys]

Bonjour,
Plutôt que des explications, un exemple de ce je cherche à faire.
Merci d'avance

 

[Tibo]

Re : Recherche & affichage du maximum des sommes

Bonsoir,

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

=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

@+

 

[alphasys]

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

 

[Robert]

Re : Recherche & affichage du maximum des sommes

Bonsoir Alphasys, Tibo, bonsoir le forum,

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

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...

 

[eriiic]

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

 

[alphasys]

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

 

[Tibo]

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

@+

 

[alphasys]

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

 

[Tibo]

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 à :

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

Je te laisse essayer

@+