Salut,
J'ai testé la soluce de Jean Marie, elle fonctionne bien. Par contre la plage est A1:AY2 ? sont - ce des textbox ou des shpaes ou autre chose ?
=>Nicolas mets un fichier exemple.
Une approche avec Evaluate, testes ceci Nicolas.
Cela revient à faire un index equiv du minimum des ordonnées, que l'on peut traduire en VBA: lancer le code depuis la feuille active.
Sub Princ()
Dim PLage As Range
Set PLage = [A1:AY2] 'à adpater
With PLage
Msgbox IndexEquiv(.Rows(1), .Rows(2), Mini(.Rows(2)))
End With
End Sub
Function IndexEquiv(PLage1 As Range, PLage2 As Range, Valeur)
IndexEquiv2 = Evaluate("INDEX(" & PLage1.Address & ",MATCH(" & Valeur & "," & PLage2.Address & ",0))")
End Function
Function Mini(PLage As Range)
Mini = Evaluate("Min(" & PLage.Address & ")")
End Function
Il n'y a pas de gestion d'erreur pour me dire quelle erreur tu aurais Nicolas ...
A+++