Cellule qui contient la valeur la plus grande

Fermé
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 13 août 2015 à 15:56
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 13 août 2015 à 17:45
Bonjour,

La fonction Application.WorksheetFunction.Max(Sheets(1).Cells(6, 23), Sheets(2).Cells(6, 23), Sheets(3).Cells(6, 23), Sheets(4).Cells(6, 23), Sheets(5).Cells(6, 23), Sheets(6).Cells(6, 23), Sheets(7).Cells(6, 23)) par exemple permet de connaître la valeur max entre plusieurs cellules.

Comment faire pour avoir l'adresse de la cellule contenant cette valeur max svp?

Merci d'avance.

Cordialement.

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 306
Modifié par michel_m le 13/08/2015 à 17:47
bonjour

maquette sur 4 feuil(1 à 4) cellules B2
code à adapter à ton contexte
Sub localiser_max()
maxi = [MAX(Feuil1:Feuil4!B2)]
For cptr = 1 To 4
If Sheets(cptr).Range("B2") = maxi Then
MsgBox ("valeur maxi " & maxi & "située feuil" & cptr & " cellule B2")
Exit For
End If
Next
End Sub


Michel
0