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 18903 Date d'inscription Statut Contributeur Dernière intervention - 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.

Afficher la suite

1 réponse

michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320

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

Cellule qui contient la valeur la plus grande

1 réponse

Discussions similaires

Newsletters