VBA: controle date formulaire

Version imprimable

10/07/2015, 12h08
khech

VBA: controle date formulaire
Bonjour,
J'ai un peu de mal à mettre en place quelques conditions ou contraintes liées aux dates pour le controle de mon formulaire.
D'abord je veux que
- la date saisie dans le Textbox0 soit antérieure à la date du jour
Ensuite j'ai une période (deux dates) qui se trouvent sur de cellules G1 et I1 dans ma feuille1 .
- Je veux que la date saisie dans mon Textbox1 ne soit pas supérieure à la date dans la cellule I1.
- Aussi que la date que je vais rentrer dans le Textbox2 soit comprise entre mes deux dates dans les cellules G1 et I1.
Par avance merci.

Bonjour

Voici pour toi :

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
Option Explicit
 
Private Sub CommandButton1_Click()
 
If IsDate(Me.TextBox0) Then
    If CDate(Me.TextBox0) < Date Then
        If IsDate(Me.TextBox1) Then
            If CDate(Me.TextBox1) <= Worksheets("feuille1").Range("I1") Then
                If IsDate(Me.TextBox2) Then
                    If Worksheets("feuille1").Range("G1") <= CDate(Me.TextBox2) And CDate(Me.TextBox2) <= Worksheets("feuille1").Range("I1") Then
 
                        'test valide
                        MsgBox "ok !"
 
                    Else
                        MsgBox "La date insérée dans la TextBox2 doit être comprise entre le " & Worksheets("feuille1").Range("G1") & " et le " & Worksheets("feuille1").Range("I1") & "."
                        Exit Sub
                    End If
                Else
                    MsgBox "La valeur insérée dans la TextBox2 n'est pas une date."
                    Exit Sub
                End If
            Else
                MsgBox "La date insérée dans la TextBox1 doit être antérieure à la date du " & Worksheets("feuille1").Range("I1") & "."
                Exit Sub
            End If
        Else
            MsgBox "La valeur insérée dans la TextBox1 n'est pas une date."
            Exit Sub
        End If
    Else
        MsgBox "La date insérée dans la TextBox0 doit être antérieure à la date du jour."
        Exit Sub
    End If
Else
    MsgBox "La valeur insérée dans la TextBox0 n'est pas une date."
    Exit Sub
End If
 
End Sub

J'ai effectué la validation via un CommandButton.
Je n'ai pas effectué tous les tests... :oops: Mais tu auras le principe. :mrgreen:
Je pense qu'il y a peut-être plus simple. Cependant, je ferais comme cela !

N'hésite pas à revenir vers moi ! :ccool:

Cordialement,
Kimy

heu exemple

ceci devrait t'empêcher de taper une mauvaise date

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TextBox0_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Dim madte
    If Len(TextBox0) = 9 Then
        If IsDate(TextBox0) Then
            If CDate(TextBox0) > Sheets(1).[G1] And CDate(TextBox0) < Sheets(1).[I1] Then
                TextBox0 = TextBox0
            Else
                madte = False
            End If
        End If
    End If
If madte = False Then TextBox0 = ""
End Sub

adapte bien sur le sheets

10/07/2015, 13h10
khech

re,
merci pour vos réponses. Pour l'adaptation, je devrais pas avoir de problème.
Je reviens bientôt après adaptation pour valider le sujet comme résolu.
:)