Private Sub Num_demande_Change()
lig = Application.Match(Val(Num_demande), Feuil2.[A1:A65000], 0)
If Not IsNumeric(lig) Then
'il faudrait mettre à zéro les controls
Exit Sub
Else
Num_tracteur = Feuil2.Cells(lig, 4)
Num_citerne = Feuil2.Cells(lig, 5)
'et tous tes autres controls ici 4 est la colonne D
End If
End Sub
Private Sub Valider_Click()
lig = Application.Match(Val(Num_demande), Feuil2.[A1:A65000], 0)
Feuil2.Cells(lig, 9) = Val(Km) 'valeur en numeric et non en text
'et tous tes autres controls ici 9 est la colonne i
End Sub