Bonjour,
Proposition macro, c'est le plus facile dans ton cas (j'ai fait ça pendant une "pause" mais je n'arrivais plus à retrouver ton sujet).
Sub TransPrixMin()
Dim c As Range, adrc$, f%, pmin%, px
ReDim tpx(Worksheets.Count - 1)
For Each c In ActiveSheet.Range("B3:G98")
adrc = c.Address
px = 99999: pmin = 0
For f = 1 To Worksheets.Count - 1
With Worksheets(f).Range(adrc)
If .Value <> "" And .Value < px Then
px = .Value
pmin = f
End If
End With
Next f
c.Value = px
c.Offset(, 10).Value = Worksheets(pmin).Name
Next c
End Sub
Il faut rétablir les 2 lignes manquantes 20A et 20B sur l'avant-dernière feuille transport (je l'ai fait). Et il y a aussi un trransporteur dont le prix est mini sur la Moselle, à 0 ! S'il ne transporte pas gratuitement en Moselle, il faudra effacer les 0.
Cordialement.
Je viens de voir que j'ai oublié de supprimer une ligne dans la macro, celle qui commence par Redim... (J'avais pensé d'abord utiliser un tableau, puis j'ai vu que c'était plus simple sans). Comme elle ne déclenchait pas d'erreur, je l'ai oubliée... mais autant la supprimer.