Sélectionner la valeur max d'un tableau

Bonjour à tous !

Je commence le VBA et je suis bloqué à un problème qui avec un peu de chance vous paraitra simple.

Je veux sélectionner la cellule qui a la valeur maximale dans mon tableau pour enfin indiquer à quel score (football) cette valeur correspond.

J'ai essayé plusieurs méthodes trouvées sur ce forum mais ça ne marche pas pour moi.

Je vous joint le fichier pour que vous compreniez mieux !

Bonne journée,

Lamzo

Bonjour Lamzo, le forum,

Un essai....

Sub Max()

    Dim tabl As Range
    Dim reponse As String
    Dim scorligne As Integer
    Dim scorcolonne As Integer
    Dim c As Range

'On attribue le tableau à la variable myrange
     Set tabl = Worksheets("feuil1").Range("K5:U15")

'On attribue la valeur max de tabl à la variable reponse
     reponse = Application.WorksheetFunction.Max(tabl)
'MsgBox "La plus haute valeur est  " & reponse

'Il faudrait ici sélectionner la cellule pour le mettre en surbrillance

 For Each c In tabl
  If c.Value = reponse Then
     c.Font.Bold = True
     scorligne = c.Row - 5
     scorcolonne = c.Column - 11
'On affiche la valeur max du tableau ainsi que le score auquel elle correspond
     MsgBox "La valeur max est de  " & Format(reponse, "0.00") & "%" & Chr(10) & Chr(13) & "    Pour un score de " & scorcolonne & " - " & scorligne
 Else
     c.Font.Bold = False
 End If
Next c

End Sub

Cordialement,

Bonjour,

à tester,

Sub test()
Set plg = Range("K4:U15")
m = Format(Application.Max(plg), "0.00")
Set c = plg.Find(m, LookIn:=xlValues, LookAt:=xlPart)
Application.Goto c
End Sub

slt xorsankukai

Merci beaucoup xorsankukai et i20100 pour votre aide !

Problème résolu