Discussion :

[jolzeviking]

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 :

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

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

[tirex28]

Bonjour,

Une solution ici

Cordialement,

Tirex28/

[jolzeviking]

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

[ucfoutu]

Bonjour,

plus simple ?
Ok

Code :

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

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

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

[ucfoutu]

Stop !

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

correction :

Code :

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

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 :

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

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

[tirex28]

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 :

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