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
| Private Sub Barbecues_Initialize()
DTPicker2.Value = Date
DTPicker1.Value = Date
End Sub
Private Sub TextBox1_Change()
[B3] = Barbecues.TextBox1
End Sub
Private Sub TextBox2_Change()
[C3] = Barbecues.TextBox2
End Sub
Private Sub Bt_Valider_Click()
Application.ScreenUpdating = False
[A3] = DTPicker1 '.Value
[D3] = [A3]
[E3] = [D3] + 7
[G3] = "10€"
[H3] = [G3]
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Selection.RowHeight = 16.2
Unload Barbecues
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton1_Click()
Unload Barbecues |
