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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
TypeEcriture = "P"
Else
TypeEcriture = ""
End If
End Sub
Private Sub ChoixSté_Change()
Label3.Caption = Worksheets.Application.VLookup(choixSté.Value, Sheets("base").Range("e:f"), 2, False) 'Met le nom de la société a côté du choix
End Sub
Private Sub DeviseBox_Change()
Label5.Caption = Worksheets.Application.VLookup(DeviseBox.Value, Sheets("base").Range("g:h"), 2, False) 'choix de la devise
End Sub
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then 'si on choisit FAE, on Génère une pièce XD
TypePceBox.Value = "XD"
End If
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
TypePceBox.Value = "SZ" 'Si on choisit une FNP, on génère une SZ
End If
End Sub
Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then
TypePceBox.Value = "SA" 'si on choisit une ODA, on génère une SA
End If
End Sub
Private Sub TypePceBox_Change()
Label1.Caption = Worksheets.Application.VLookup(TypePceBox.Value, Sheets("Base").Range("a:b"), 2, False) 'descriptif Type de pièce à côté du choix
TypePce = TypePceBox.Value
If TypePceBox.Value = "SZ" Then
CheckBox1.Value = True 'Si on choisit SZ comme type pièce, L'extourne est aussi sélectionnée
Else: CheckBox1.Value = False
End If
End Sub
Private Sub OptionButton4_Click()
If OptionButton4.Value = True Then
TypePceBox.Value = "KB" 'si on choisit une Facture reçue, on génère une KB
End If
End Sub
Private Sub UserForm_Initialize()
Me.Height = 550
Me.Width = 425
Dim TypeEcriture, TypePce, CodeSté, Réf, Devise, EnTête, CpteG, CpteAux, TypeCpte, TxtPoste, CodeTVA, CDC, CtreProfit, SL, DomaineA As Range
Dim DateCptable, DatePce, DateEch As Date
Dim Debit, Credit As Integer
For i = 1 To 5
TypePceBox.AddItem Sheets("Base").Cells(i + 1, 1) 'liste déroulante Type de pièce
Next
For i = 2 To Worksheets.Application.CountA(Sheets("base").Range("e:e"))
choixSté.AddItem Sheets("base").Cells(i, 5) 'Liste déroulante Choix Société
Next
For i = 2 To Worksheets.Application.CountA(Sheets("base").Range("g:g"))
DeviseBox.AddItem Sheets("base").Cells(i, 7) 'Liste déroulante Choix Devises
Next
DeviseBox.Value = "EUR"
For i = 2 To Worksheets.Application.CountA(Sheets("base").Range("n:n"))
TVABox.AddItem Sheets("Base").Cells(i, 14)
Next
TVABox.Value = "ZZ"
CheckBox1.Value = False
End Sub
Private Sub CommandButton1_Click() 'affectation des valeurs aux variables, puis lancement de la macro ExcelToolBuild
TypePce = TypePceBox.Value
CodeSté = choixSté.Value
Set Réf = Sheets("base").Range("a1")
Devise = DeviseBox.Value
Set EnTête = Sheets("base").Range("a1")
DateCptable = DateCBox.Value
DatePce = DatePBox.Value
CpteG = CptGBox.Value
CpteAux = CptABox.Value
TypeCpte = "K"
Set TxtPoste = Sheets("base").Range("a1")
CodeTVA = TVABox.Value
Set CDC = CDCBox.Value
Set Debit = Sheets("base").Range("a1")
Set Credit = Sheets("base").Range("a1")
Set SL = Sheets("base").Range("a1")
Call ExcelToolBuild.ExcelToolBuild
End Sub |
