ADRESSE / EQUIV / MAX - recherche sur plusieurs FDC

Résolu
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)

3 réponses

  1. Contributeur
    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 ...
    0
    1. Merci pour ta réponse

      Y a t-il un autre moyen du coup de rechercher l'adresse du maximum de toutes les colonnes B de mon classeur avec une seule formule ?
      0
  2. Contributeur
    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
    0
    1. Contributeur
      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 Byte
      Dim Maximum As Double, Maxi As Double
      Dim 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 & Adresse
      End Sub


      maquette
      https://mon-partage.fr/f/JOhYCHwi/
       Michel
      0
      1. Contributeur
        Salut Michel
        ben oui, comme ça ça fait mieux ;-)
        Bien cordialement
        0