Pb:forcer le format d'une textbox

Version imprimable

Salut.
Je galere depuis quelques temps sur une boite de dialogue qui permet de saisir des dates de rentrée de facture. voila le code:
Code:

1 2 3 4 5 6 7 8 9 Private Sub SpinButton1_SpinDown() TextBox1.Text = DateValue(TextBox1.Text) - 1 End Sub Private Sub SpinButton1_SpinUp() TextBox1.Text = DateValue(TextBox1.Text) + 1 End Sub Sub userform_Activate() textbox1.value = Date end sub
Voila pour la base seulement il faut pouvoir saisir manuellement dans la textbox la date seulement pour la suite de ma macro il faut que l'on ne puisse pas valider si le format est different de 21/03/2008
D'avance merci

07/07/2008, 14h13
tirex28

Bonjour,

Une solution ici

Cordialement,

Tirex28/
07/07/2008, 14h47
jolzeviking

Merci pour la solution mais y aurrait-il une solution plus simple du genre if format ou if lettre? Un code plus conditionnel?

Bonjour,

plus simple ?
Ok

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
 MsgBox tester_date(textbox1.text)
End Sub
 
Private Function tester_date(a As String) As Boolean
  tester_date = True
  If Not IsDate(a) Then tester_date = False
  If tester_date Then
    If Not a Like "##/##/####" Or Month(a) > 12 Then
      tester_date = False
    End If
  End If
End Function

07/07/2008, 16h10
jolzeviking

UCFOUTU et TIREX, merci pour ces codes ils sont au top .
Du grand art le (le 8eme exactement).
Je n'ai plus de bug surma boite. j'ai rajouté un exit sub et cela empeche les bug de format.
Merci bonne journée.

Stop !

J'ai fait une blague qui ne protège pas de la saisie de "12/31/2008" au lieu de "31/12/2008" :oops: (VB est assez particulier !!!)

correction :

Code:

1
2
3
4
5
6
7
8
9
10
Private Function tester_date(a As String) As Boolean
  tester_date = True
  If Not IsDate(a) Then tester_date = False
  If tester_date Then
    If Not a Like "##/##/####" Or Val(Mid(a, 4, 2)) > 12 Then
      tester_date = False
    End If
  End If
 
End Function

ou (mieux encore) :

Code:

1
2
3
4
5
Private Function tester_date(a As String) As Boolean
  tester_date = True
  If Not IsDate(a) Then tester_date = False: Exit Function
  If Format(DateSerial(Year(a), Month(a), Day(a)), "dd/mm/yyyy") <> a Then tester_date = False
End Function

Bonsoir,

Si ma proposition te parait trop complique et ne sachant pas si tu l'as retenu ou si tu as préféré celle d'ucfoutu - que je salue au passage - voici ce que ca aurait pu donner:

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
Dim MyDate As DateBox                           'Déclaration
 
Private Sub UserForm_Initialize()
    Set MyDate = New DateBox                    'Création
    With MyDate
        .Initialize Me.Controls("TextBox1")     'Connection avec le TextBox
        .ShortYear = False                      'Définition du format
        .Separator = "/"
        .Order = dbxDayMonthYear
    End With
End Sub
 
Private Sub CommandButton1_Click()
    If MyDate.Status = dbxNotCompleted Then
        MsgBox "Saisie incorrecte"
    Else
        MsgBox Format(MyDate.Value, "dddd dd mmmm yyyy")
    End If
End Sub
 
Private Sub SpinButton1_SpinDown()
    Incrementer -1
End Sub
 
Private Sub SpinButton1_SpinUp()
    Incrementer 1
End Sub
 
Private Sub Incrementer(Pas As Long)
    On Error Resume Next    'Si la saisie n'est pas achevé
    MyDate.Value = MyDate.Value + Pas
End Sub

Bonne soirée,

Tirex28/