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
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
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
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
Partager