Discussion :

[orcinus]

bonjour

mon problème est le suivant
je rentre une date dans une txtbox jj/mm/aaaa
à la validation je la retrouve dans mon formulaire au format mm/jj/aaaa et cela pour les 12 premiers jours du mois
alors j'ai trouver des discussions à se sujet mais je ne comprend pas
si quelqu’un pouvait me donner un petit coup de main
merci d'avance pour vos réponses

[unparia]

Bonjour

à la validation je la retrouve dans mon formulaire au format mm/jj/aaaa

ne nous dit rien de précis.
Tu "la retrouves" ainsi où ? Et avec quel bout de code ?

[orcinus]

Re bonjour
Déja merci pour l'attention apporté à mon problème
Donc je disais que je rentré une date dans ma txtbox (01/10/2016) et lors de la validation cette date et devenu dans mon formulaire (10/10/2016)
alors que mon format et bien sur date et alignement à gauche.
Ci dessous le code que j'utilise si cela peux aider.

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
Private Sub txtdate1_Change()
 
    txtdate.BackColor = &H80000005
 
End Sub
 
Private Sub txtdate_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    txtdate.BackColor = &H80000005
    If InStr("0123456789", VBA.Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
        txtdate.BackColor = &HFF&
    End If
 
End Sub
 
Private Sub txtdate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    If Len(txtdate.Text) = 0 Then
        GoTo Fin
    End If
 
    If Len(Replace(txtdate.Text, "/", "")) <> 6 And Len(Replace(txtdate.Text, "/", "")) <> 8 Then
        GoTo ErreurSaisie
    End If
 
    If Len(txtdate.Text) = 6 Then
        If Right(txtdate, 2) > 50 Then
            txtdate = Left(txtdate, 4) & 19 & Right(TextBox1, 2)
        Else
            txtdate = Left(txtdate, 4) & 20 & Right(TextBox1, 2)
        End If
    End If
 
    txtdate.Text = Left(Replace(txtdate.Text, "/", ""), 2) & "/" & Mid(Replace(txtdate.Text, "/", ""), 3, 2) & "/" & Right(Replace(txtdate.Text, "/", ""), 4)
    txtdate.MaxLength = 10
 
    If Not IsDate(txtdate.Value) Then
        GoTo ErreurSaisie
    End If
 
    GoTo Fin
 
ErreurSaisie:
 
    Cancel = True
    With txtdate
        .BackColor = &HFF&
        MsgBox "Date saisie incorrecte"
        txtdate.Text = Replace(txtdate.Text, "/", "")
        .SetFocus
        .SelStart = 0
        .SelLength = Len(txtdate.Text)
    End With
 
Fin:
 
End Sub

[Jean-Philippe André]

Salut,

pour tout ce qui est en lien avec les paramètres régionaux, tu peux regarder les solutions proposées par Application.International()

http://jpcheck.developpez.com/tutori...international/

[unparia]

Bonjour
Tout me semble à reconsidérer dans ce code de "contrôle de saisie".
Amuse-toi donc à regarder ce qui se passe si l'utilisateur saisit "011050". Il ne sera en plus même pas prévenu ...
Commence par cela, s'il te plait.
On ne verra le reste qu'ensuite.

[orcinus]

Bonjour
c'est vrai u as raison.
Je vais donc essayer de revoir mon code.
Merci quand même