ADRESSE / EQUIV / MAX - recherche sur plusieurs FDC Résolu/Fermé

Question

Bonsoir tout le monde,
la formule suivante :
=ADRESSE(EQUIV(MAX(sheet1!B:B);sheet1!B:B;0);;;"sheet1")
me permet de retourner l'adresse de la cellule maximum de la colonne B de la feuille de calcule "sheet1"
Jusque là, je pense que ça peut aller.
Ma question est la suivante : si je veux rechercher l'adresse de la cellule max. de la colonne B de toutes les feuilles de calcul de 1 à 20 ? c'est quoi la formule ? Je bloque sur la fin ...
=ADRESSE(EQUIV(MAX(sheet1:sheet20!B:B);sheet1:sheet20!B:B;0);;;"sheet1")
Je ne sais pas quoi mettre et à chaque fois Excel me retourne une erreur de valeur (#VALEUR!)
Merci pour votre aide (si solution existe)

Raymond PENTIER · Answer

Bonjour.
Ce n'est pas la fin qui pose problème, mais le contenu même de la formule ! 
En effet la fonction MAX accepte de chercher dans plusieurs feuilles, mais pas la fonction EQUIV ...

Vaucluse · Answer

Bonjour
pas de solution miracle mais si vous avez envie de taper la formule pour 20 feuilles, la voici pour 3:
 =EQUIV(MAX(Feuil1:Feuil3!B:B);SI(NB.SI(Feuil1!B:B;MAX(Feuil1:Feuil3!B:B));Feuil1!B:B;SI(NB.SI(Feuil2!B:B;MAX(Feuil1:Feuil3!B:B));SI(NB.SI(Feuil3!B:B;MAX(Feuil1:Feuil3!B:B));Feuil3!B:B)));0)
éventuellement pour simplifier un peu, en deux cellules:
une pour ressortir le max des feuilles
et l'autre ci dessus avec l'adresse de cette cellule à la place de MAX(....)
crdlmnt

michel_m · Answer

Bonjour tt le monde
peut-^tre avec du Vba
donne la première adresse trouvée de la valeur maxi 
Option Explicit'----------------------------------------------------------------Sub localiser_adresse()Dim Nbre As Byte, Cptr As ByteDim Maximum As Double, Maxi As DoubleDim Adresse As String, Onglet As String    Application.ScreenUpdating = False    Nbre = ThisWorkbook.Sheets.Count    Maximum = 0    For Cptr = 1 To Nbre        With Sheets(Cptr)            Maxi = Application.Max(.Columns("B"))                If Maxi > Maximum Then                    Adresse = .Columns("B").Find(Maxi, .Range("B" & 1000000), xlValues).Address                    Maximum = Maxi                    Onglet = .Name & "!"                End If        End With    Next    MsgBox "localisation valeur Maximum: " & Onglet & AdresseEnd Sub
maquette
https://mon-partage.fr/f/JOhYCHwi/
 Michel

ADRESSE / EQUIV / MAX - recherche sur plusieurs FDC

3 réponses

Discussions similaires