Boujour tout le monde,

J'ai un problème, je ne trouve pas pourquoi sa ne marche pas.
Je veux que UserForm2 soit détaillé sur UserForm3
Par exemple :
Code : 29
Prix Unitaire : 5€
Intétulé : Test
Quantité : 1
http://prntscr.com/dn9ptd
http://prntscr.com/dn9pxc

UserForm2
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub CommandButton1_Enter()
 
Sheets("Facture").Activate
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = TextBox1.Value
UserForm2.Hide
UserForm3.Show
 
End Sub
 
Private Sub CommandButton2_Click()
UserForm1.Show
UserForm2.Hide
End Sub
 
Private Sub TextBox1_change()
If TextBox1 <> "" Then
 
        CommandButton1.Enabled = True
    Else
        CommandButton1.Enabled = False
 
    End If
 
If WorksheetFunction.CountIf(Sheets("BaseCode").Range("A:A"), Me.TextBox1.Value) = 0 Then
 
    MsgBox "Ce Code n'existe pas. Resaisir un nouveau Code", vbInformation + vbOKOnly, "Code non trouvé"
 
    End If
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub
UserForm3
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton2_Click()
Unload Me
End Sub
 
Private Sub Label6_Click()
 
End Sub
 
Private Sub Label8_Click()
 
    With UserForm2
 
    Label8 = Application.WorksheetFunction.VLookup(CLng(UserForm2.TextBox1), Sheets("BaseCode").Range("BaseCodes"), 1, 0)
 
    End With
 
End Sub