Gérer les dates avec dtPicker

Encore un problème de compatibilité

Je me sert des dtpicker pour inseret mes dates dans des txtbox qui elle les rapporte dans mes colonnes

il y a surment plus simple mais la je patoge

Ci-joint ce que tu dois modifier dans les codes des boutons enregistrer de userform1 et userform2

Useform1:
Bouton Mettre à jour bd
Code:

1 2 3 4 5 .Cells(Lig, 8).Value = CDate(Me.TxtRjt.Value) .Cells(Lig, 8).NumberFormat = "dddd dd mmmm yyyy" .Cells(Lig, 9).Value = CDate(Me.TxtImp.Value) .Cells(Lig, 9).NumberFormat = "dddd dd mmmm yyyy"
Userform2:
Bouton: enregistrer fiche
Code:

1 2 3 4 5 ws.Cells(iRow, 8).Value = CDate(Me.TxtRjt.Value) ws.Cells(iRow, 8).NumberFormat = "dddd dd mmmm yyyy" ws.Cells(iRow, 9).Value = CDate(Me.TxtImp.Value) ws.Cells(iRow, 9).NumberFormat = "dddd dd mmmm yyyy"
ainsi tu récupère dans ta feuille des dates (formatées)

cela ne fonctionne pas
cela continu d'inverser le jour et le mois

Bonjour,
tu as testé et n'as pas adapté à tes userforms
j'ai fais ça pour toi pour userform1, à toi de l'adapter pour userform2

Code:

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
Private Sub DTPicker1_Change()
UserForm1.TxtCiv.Value = Format(DTPicker1.Value, "dd/mm/yyyy")
End Sub
 
Private Sub DTPicker2_Change()
UserForm1.TxtImp.Value = Format(DTPicker2.Value, "dd/mm/yyyy")
End Sub
 
Private Sub DTPicker3_Change()
UserForm1.TxtRjt.Value = Format(DTPicker3.Value, "dd/mm/yyyy")
End Sub
 
Private Sub DTPicker4_Change()
UserForm1.TxtTel.Value = Format(DTPicker4.Value, "dd/mm/yyyy")
End Sub
 
Private Sub DTPicker6_Change()
UserForm1.TxtPrt.Value = Format(DTPicker6.Value, "dd/mm/yyyy")
End Sub
 
Private Sub DTPicker7_Change()
UserForm1.TxtCpi.Value = Format(DTPicker7.Value, "dd/mm/yyyy")
End Sub
 
Private Sub DTPicker8_Change()
UserForm1.TxtPdt.Value = Format(DTPicker8.Value, "dd/mm/yyyy")
 
End Sub
 
Private Sub TxtCtt_Change()
 
With TxtCtt
    If .ListIndex = -1 Then Exit Sub
    Lig = CLng(.List(.ListIndex, (.ColumnCount - 1)))
End With
With Sheets(Impaye)
    Me.TxtCiv.Value = Format(.Cells(Lig, 2).Value, "dd/mm/yyyy")
    Me.TxtCtt5.Value = .Cells(Lig, 6).Value
    Me.TxtCtt4.Value = .Cells(Lig, 3).Value
    Me.TxtCtt3.Value = .Cells(Lig, 7).Value
    Me.TxtRjt.Value = Format(.Cells(Lig, 8).Value, "dd/mm/yyyy")
    Me.TxtImp.Value = Format(.Cells(Lig, 9).Value, "dd/mm/yyyy")
    Me.TxtTel.Value = Format(.Cells(Lig, 10).Value, "dd/mm/yyyy")
    Me.TxtPrt.Value = Format(.Cells(Lig, 11).Value, "dd/mm/yyyy")
    Me.TxtCpi.Value = Format(.Cells(Lig, 12).Value, "dd/mm/yyyy")
    Me.TxtPdt.Value = Format(.Cells(Lig, 13).Value, "dd/mm/yyyy")
    Me.TxtCtt.Value = .Cells(Lig, 4).Value
    Me.TextBox27.Value = .Cells(Lig, 14).Value
    Me.TxtCtt6.Value = .Cells(Lig, 5).Value
    Me.TxtCtt2.Value = .Cells(Lig, 1).Value
 
End With
End Sub
 
Private Sub TxtCtt2_Change()
 
With TxtCtt2
    If .ListIndex = -1 Then Exit Sub
    Lig = CLng(.List(.ListIndex, (.ColumnCount - 1)))
End With
With Sheets(Impaye)
    Me.TxtCiv.Value = Format(.Cells(Lig, 2).Value, "dd/mm/yyyy")
    Me.TxtCtt5.Value = .Cells(Lig, 6).Value
    Me.TxtCtt4.Value = .Cells(Lig, 3).Value
    Me.TxtCtt3.Value = .Cells(Lig, 7).Value
    Me.TxtRjt.Value = Format(.Cells(Lig, 8).Value, "dd/mm/yyyy")
    Me.TxtImp.Value = Format(.Cells(Lig, 9).Value, "dd/mm/yyyy")
    Me.TxtTel.Value = Format(.Cells(Lig, 10).Value, "dd/mm/yyyy")
    Me.TxtPrt.Value = Format(.Cells(Lig, 11).Value, "dd/mm/yyyy")
    Me.TxtCpi.Value = Format(.Cells(Lig, 12).Value, "dd/mm/yyyy")
    Me.TxtPdt.Value = Format(.Cells(Lig, 13).Value, "dd/mm/yyyy")
    Me.TxtCtt.Value = .Cells(Lig, 4).Value
    Me.TextBox27.Value = .Cells(Lig, 14).Value
    Me.TxtCtt6.Value = .Cells(Lig, 5).Value
End With
End Sub

j'ai pas touché à Initialize

et pour mettre à jour la base

Code:

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
Private Sub CommandButton4_Click()
With Sheets(Impaye)
    On Error Resume Next
    .Cells(Lig, 2).Value = CDate(Me.TxtCiv.Value)
    .Cells(Lig, 2).NumberFormat = "dd mmmm yyyy"
 
    .Cells(Lig, 1).Value = Me.TxtCtt2.Value
    .Cells(Lig, 6).Value = Me.TxtCtt5.Value
    .Cells(Lig, 3).Value = Me.TxtCtt4.Value
    .Cells(Lig, 7).Value = Me.TxtCtt3.Value
 
    .Cells(Lig, 8).Value = CDate(Me.TxtRjt.Value)
    .Cells(Lig, 8).NumberFormat = "dddd dd mmmm yyyy"
 
    .Cells(Lig, 9).Value = CDate(Me.TxtImp.Value)
    .Cells(Lig, 9).NumberFormat = "dddd dd mmmm yyyy"
 
    .Cells(Lig, 10).Value = CDate(Me.TxtTel.Value)
    .Cells(Lig, 10).NumberFormat = "dd mmmm yyyy"
 
    .Cells(Lig, 11).Value = CDate(Me.TxtPrt.Value)
    .Cells(Lig, 11).NumberFormat = "dd mmmm yyyy"
 
    .Cells(Lig, 12).Value = CDate(Me.TxtCpi.Value)
    .Cells(Lig, 22).NumberFormat = "dd mmmm yyyy"
 
    .Cells(Lig, 13).Value = CDate(Me.TxtPdt.Value)
    .Cells(Lig, 13).NumberFormat = "dd mmmm yyyy"
 
    .Cells(Lig, 14).Value = Me.TextBox27.Value
    .Cells(Lig, 5).Value = Me.TxtCtt6.Value
End With
 
End Sub

Ok merci beaucoup
Je comprend la logique

Encore merci pour ton temps et ta patience