Function chercheArray(MaVal As Double) As String Dim RESULTAT As String Dim tablo(9, 2) As Variant tablo(1, 1) = 125 tablo(1, 2) = "n30" tablo(2, 1) = 127 tablo(2, 2) = "n31" tablo(3, 1) = 130 tablo(3, 2) = "s123" tablo(4, 1) = 132 tablo(4, 2) = "n32" tablo(5, 1) = 133 tablo(5, 2) = "n33" tablo(6, 1) = 141 tablo(6, 2) = "n34" tablo(7, 1) = 150 tablo(7, 2) = "n34" tablo(8, 1) = 155 tablo(8, 2) = "" tablo(9, 1) = 160 tablo(9, 2) = "" Nbl = UBound(tablo) For i = 1 To Nbl valTablo = tablo(i, 1) If MaVal < valTablo Then Exit For End If Next RESULTAT = tablo(i - 1, 1) & "->" & tablo(i - 1, 2) chercheArray = RESULTAT End Function Sub test() Debug.Print (chercheArray(127.5)) Debug.Print (chercheArray(129.85)) Debug.Print (chercheArray(130.01)) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question