Discussion :

[crashfire]

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

[mercatog]

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

Useform1:
Bouton Mettre à jour bd

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[crashfire]

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

[mercatog]

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 :

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

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

[crashfire]

Ok merci beaucoup
Je comprend la logique

Encore merci pour ton temps et ta patience