Discussion :

[mayoub72]

bonjour tout le monde

SVP quelqu'un pourrait il m'aider pour le masque de saisie d'un textbox que je voudrais mettre sous la forme de "jj/mm/aaaa hh:mm" (ex 20/03/2019 15:42), parcequ'au fait je l'utilise pour calculer la duréé d'une operation d'exploitation qui est la different entre initial et final.

merci

[Menhir]

Demander une saisie de date dans une Textbox, c'est chercher les ennuis.
Une textbox, comme son nom l'indique, est conçue pour saisir du texte.
Même en supposant que l'utilisateur saisisse la date correctement (ce qui est loin d'être garanti), la transformation texte > Date à une chance sur deux de mal se passer étant donné l'anglophilie de VBA.
Pour garantir un résultat correct, il faudrait décomposer la date en valeurs élémentaires (jour, mois, année, heure, minute) pour la recomposer.

[patricktoulon]

bonjour
https://www.developpez.net/forums/bl...que-dynamique/

ca te donnera une idée du boulot pour faire un masque de saisie et ca n'est pas ma meilleure version il y a un fichier en piece jointe

[mayoub72]

Merci bien patricktoulon votre code m'aide beaucoup, mais moi j'ai besoin d'nsérer meme l'heure de début dans le textbox, alors es ce que c'est possible.

[patricktoulon]

re
oui c'est possible mais c'est du boulot a concevoir un masque de saisie "--/--/---- --:--:--" avec control de validité

tu pourrais te servir des formats perso avec multiple separateur de mon model mais tu n'aurais pas le control de la validité de la date

c'est pas du niveau debutant

[Twosiv]

Si tu veux que du texte essaie ça:

Code :

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

me.TextBox1.Value=Format(Now(), "dd/mm/yyyy hh:mm")

[Menhir]

Si tu veux que du texte essaie ça:
me.TextBox1.Value=Format(Now(), "dd/mm/yyyy hh:mm")

Dans la mesure où ce qui est à saisir est une date de début et une date de fin, il est peu probable qu'on puisse se contenter d'une fonction Now().
De plus, si c'était le cas, il n'y aurait pas d'intérêt à créer un masque de saisie.
Et enfin, comme dans la demande il est précisé que le but est de faire la différence entre deux dates, proposer de les transformer en texte est à pro une mauvaise idée.

[mayoub72]

Trés astutieux mais ça ne m'aide pas beaucoups

merci comme meme

[Theze]

Bonjour,

Une piste mais comme il est dit ici, il est compliqué de faire un masque de saisie fiable. Ce que je te présente filtre la saisie effectuée mais il n'y a pas de masque de saisie à proprement parler comme on peut trouver dans Access :

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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    Select Case KeyAscii
 
        Case 32, 47, 58, 48 To 57 'espace, slash, deux-points et chiffres
 
        Case Else: KeyAscii = 0
 
    End Select
 
End Sub
 
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
    Dim I As Integer
    Dim Texte As String
 
    With TextBox1
 
        'contrôle la bonne saisie
        For I = 1 To Len(.Text)
 
            Select Case I
 
                Case 1, 2, 4, 5, 7, 8, 9, 10, 12, 13, 15, 16
                    If Not IsNumeric(Mid(.Text, I, 1)) Then .Text = Left(.Text, I - 1)
 
                Case 3, 6
                    If Mid(.Text, I, 1) <> "/" Then .Text = Left(.Text, I - 1) & "/"
 
                Case 11
                    If Mid(.Text, I, 1) <> " " Then .Text = Left(.Text, I - 1) & " "
 
                Case 14
                    If Mid(.Text, I, 1) <> ":" Then .Text = Left(.Text, I - 1) & ":"
 
            End Select
 
        Next I
 
        'ajoute les caractères pour une saisie plus rapide
        Select Case Len(.Text)
 
            Case 2, 5: .Text = .Text & "/"
 
            Case 10: .Text = .Text & " "
 
            Case 13: .Text = .Text & ":"
 
        End Select
 
        'les secondes ne pouront être saisies
        If Len(.Text) > 16 Then .Text = Left(.Text, Len(.Text) - 1)
 
        'contrôle la validité des veleurs entrées
        If Len(.Text) = 16 Then
 
            If Valide(.Text, Texte) = False Then
 
                If InStr(Texte, "Date") <> 0 Then MsgBox Texte: .Text = "" Else MsgBox Texte: .Text = Left(.Text, 11)
 
            End If
 
        End If
 
    End With
 
End Sub
 
Function Valide(Valeur As String, Retour As String) As Boolean
 
    Dim LaDate As Date
 
    Valide = True
 
    On Error Resume Next
    LaDate = DateValue(Split(Valeur, " ")(0))
 
    If Err.Number <> 0 Then
 
        Valide = False
        Retour = "Date non valide !"
        Exit Function
 
    End If
 
    Err.Clear
 
    LaDate = TimeValue(Split(Valeur, " ")(1))
 
    If Err.Number <> 0 Then
 
        Valide = False
        Retour = "Heure non valide !"
 
    End If
 
End Function

[mayoub72]

Merci beaucoup Theze

votre code marche trés, vous me sauvez

encore merci