Cellule qui contient la valeur la plus grande

Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
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 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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