Résolu AIde VBA sur Exel

[sas_fr]

Salut 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

You must be registered for see images attach

You must be registered for see images attach

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

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