Bonjour le fil, bonjour le forum,
En regardant ton fichier, essaie ce code. Il prend en compte l'éventualité d'avoir la valeur Max à plusieurs dates différentes (je ne sais pas si ce cas de figure est possible dans ton tableau mais au cas où...) :
Sub Selection_max()
Dim T As Worksheet 'déclare la variable T (onglet Test)
Dim PL As Range 'déclare la variable PL (PLage)
Dim V As Integer 'déclare la variable V (Valeur)
Dim R As Range 'déclare la variable R (Recherche)
Dim MSG1 As String 'déclare la variable MGS1 (MeSsaGe 1)
Dim MSG2 As String 'déclare la variable MGS2 (MeSsaGe 2)
Set T = Sheets("test") 'définit l'onglet T
V = T.Range("B369") 'définit la valeur V
Set PL = T.Range("B3:B368") 'définit la palge PL
Select Case Application.WorksheetFunction.CountIf(PL, V) 'agit en fonction du nombre de fois que la valeur max apparaît dans la plage PL
Case 1 'cas : une seule fois
MsgBox "Le " & T.Cells(PL.Find(V, , xlValues, xlWhole).Row, 1).Value & ", la valeur : " & V & " $" 'message
Case Else 'cas : plus d'une seule fois
MSG1 = "La valeur " & V & " $ les :" & Chr(13) 'définit le message MSG1
Set R = PL.Find(V, , xlValues, xlWhole) 'définit la recherche R
PA = R.Address 'définit l'addresse de la première occurrence trouvée
Do 'exécute
MSG2 = IIf(MSG2 = "", T.Cells(R.Row, 1).Value & Chr(13), MSG2 & T.Cells(R.Row, 1).Value & Chr(13)) 'définit le message MSG2
Set R = PL.FindNext(R) 'redéfinit la recherche R (occurrence suiivante)
Loop While Not R Is Nothing And R.Address <> PA 'boucle tant qu'il existe de nouvelle occurrence ailleurs qu'en PA
MsgBox MSG1 & MSG2 'affiche le message MSG1 et MSG2
End Select 'fin de l'action en fonction du nombre de fois que la valeur max apparaît dans la plage PL
End Sub