Option Explicit
Private Sub ComboBox_km_Change()
' on met à jour les trois textbox
TextBox_jour_Change
End Sub
Private Sub TextBox_jour_Change()
Dim i, Vals(1 To 3), Ndx, Nbj
'on recherche les trois valeurs correspondant au déplacement
Ndx = Me.ComboBox_km.ListIndex
If Ndx = -1 Then
For i = 1 To 3: Vals(i) = 0: Next i
Else
With Sheets("Feuil1")
Vals(1) = .Cells(Ndx + 1, "m")
Vals(2) = .Cells(Ndx + 1, "w")
Vals(3) = .Cells(Ndx + 1, "ag")
End With
End If
'nombre de jour
Nbj = Val("0" & TextBox_jour)
For i = 1 To 3
Me.Controls("TextBox" & i) = Format(Nbj * Vals(i), "#0.00")
Next i
End Sub