Problème de de conversion de date

Version imprimable

01/10/2016, 11h40
orcinus

Problème de de conversion de date

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
01/10/2016, 12h32
unparia

Bonjour

Citation:

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

suite problème

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:

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

04/10/2016, 10h35
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/
04/10/2016, 11h05
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.
04/10/2016, 14h03
orcinus

RE CODE

Bonjour
c'est vrai u as raison.
Je vais donc essayer de revoir mon code.
Merci quand même
04/10/2016, 14h55
unparia

Citation:

Je vais donc essayer de revoir mon code.

Non. Pas seulement le "revoir". En changer totalement la philosophie, oui...
Il s'agit là d'un exercice quasi "ludique", qui n'a d'autre réel intérêt que de ... s'exercer.
Je te laisse donc t' "exercer".
Si tu veux un code qui, lui, "marche", j'en ai fait au moins trois différents. Mais s'agissant de t' "exercer", je te laisse t' "exercer", pour ne pas te priver des joies de ce genre d' "exercice".;)
04/10/2016, 23h14
orcinus

re bonjour

bonjour
c'est bien ce que je fait
j'efface tout et je recommence
on verra bien
merci quand meme