Selectionner la cellule contenant la valeur maximale

Bonjour à tous !

Etant légèrement débutante en VBA, je suis bloquée à un problème qui avec un peu de chance vous paraitra simple.

Je veux selectionner la cellule qui a la valeur maximale dans ma rangée.

J'arrive à trouver cette valeur, mais je n'arrive pas à selectionner la cellule.

Je vous poste mon fichier excel. Mon cod est dans le module analyze.

Merci beaucoup d'avance !

Bérengère

Bonjour,

Essaye ton code modifié comme suivant :

Sub subRevenueMax()
    Dim myRange As range
    Dim response As Long
    Dim ligne As Long
    Set myRange = Worksheets("Base de données").range("I2:I65000")
    response = Application.WorksheetFunction.Max(myRange)
    ligne = WorksheetFunction.Match(response, myRange, 0)
    MsgBox "The Highest value of revenue is " & response
    Cells(ligne + 1, myRange.Column).Font.Bold = True
End Sub

bonjour,

une proposition

Sub subRevenueMax()

Dim myRange As range
Dim response As String
Set myRange = Worksheets("Base de données").range("I2:I65000")
response = Application.WorksheetFunction.Max(myRange)

 'Mon problème est ici : je veux réussir à selectionner la cellule crrespondante pour après la formater

MsgBox "The Highest value of revenue is " & response
 myRange.Find(response).Select

ActiveCell.Font.Bold = True

'If range("I2:I65000") = Application.WorksheetFunction.Max(myRange) Then
'Cells("I2:I65000").Font.Bold = True
'End If

End Sub

Un million de fois merci !!!!!

Ca marche !!

Merci à tous les deux !

Re,

h2so4,

Excellent la méthode Find !!!

Raja a écrit :

Re,

h2so4,

Excellent la méthode Find !!!

tout autant que la fonction "match" ;o)