bonjour
j'ai le code suivant :
mais je n'arrive pas a avoir la date du jour, peux t'on m'expliquez pourquoi ?
j'ai deja un DTPicker dans un autre userform.

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

cris