Private Sub UserForm_Initialize()
Sheets("Feuil1").Select ' aller à la page active
Me.TextBox1.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 0) ' Ref
Me.TextBox3.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 1) ' Nom=
Me.TextBox4.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 2) ' Date
Me.TextBox7.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 6) ' Ville
Me.TextBox2.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 3) ' N° Ligne
Me.TextBox6.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 4) ' Adresse
Me.TextBox5.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 5) ' CP
Me.TextBox9.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 9) ' Mobile
Me.TextBox10.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 8) 'Fax
Me.TextBox8.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 7) 'Tel
Label151.Caption = " " & Range("B65536").End(xlUp).Row ' N° de la derniere ligne non vide
End Sub
Private Sub TextBox4_Change()
If Len(TextBox4) = 2 Or Len(TextBox4) = 5 Then _
TextBox4 = TextBox4 & "/"
End Sub