Re : Informations userform
avant que tu le demande voici une macro qui en remplissant un textbox et en sortant de remplir d'autres textbox. cette macro n'est peut etre pas parfaite mais c'est ce que je sait faire.
Private Sub PARC_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim trouve As Object
Dim LIGNE As Long
If PARC.Text = "" Then
Else
Set trouve = Worksheets("liste parc").Range("c:c").Find(CLng(PARC.Text), lookat:=xlWhole)
If Not trouve Is Nothing Then
LIGNE = trouve.Row
IMMAT.Text = Worksheets("liste parc").Range("d" & LIGNE)
KEOLIS.Text = Worksheets("liste parc").Range("a" & LIGNE)
DEPOT.Text = Worksheets("liste parc").Range("w" & LIGNE)
AGE.Text = Worksheets("liste parc").Range("k" & LIGNE)
ENTREE.Text = Worksheets("liste parc").Range("i" & LIGNE)
MARQUE.Text = Worksheets("liste parc").Range("l" & LIGNE)
PLACES.Text = Worksheets("liste parc").Range("s" & LIGNE)
CEINTURE.Text = Worksheets("liste parc").Range("x" & LIGNE)
WEBASTO.Text = Worksheets("liste parc").Range("ah" & LIGNE)
RADIO.Text = Worksheets("liste parc").Range("af" & LIGNE)
CLIM.Text = Worksheets("liste parc").Range("ag" & LIGNE)
VIDEO.Text = Worksheets("liste parc").Range("ae" & LIGNE)
CHRONO.Text = Worksheets("liste parc").Range("ao" & LIGNE)
TECHNIQUE.Text = Worksheets("liste parc").Range("aj" & LIGNE)
ETAT.Text = Worksheets("liste parc").Range("v" & LIGNE)
KMMOIS.Text = Worksheets("liste parc").Range("Ay" & LIGNE)
VIDANGE.Text = Worksheets("liste parc").Range("Aw" & LIGNE)
LIVREE.Text = Worksheets("liste parc").Range("u" & LIGNE)
Else
MsgBox "N° de parc: " & PARC.Text & " non trouvée. Pour une création de véhicule faire une demande par mail à M. BAPTISTE, M. MOULIN ou M. JALENQUES"
End If
End If
End Sub