Comparer deux dates de deux textboxs.

[Fermé]
Signaler
-
Messages postés
15954
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2021
-
Bonjour
L'appétit venant en mangeant,J'ai Encore une autre préoccupation.
Aidez moi à trouver le code pour pouvoir comparer deux dates.
Dans mon userform je saisis la date de naissance des élèves dans une textbox.
Dans une autre textbox,je saisis la date d'établissement de l'extrait de l'élève.
Alors la comparaison que je demande va me servir à détecter si l' extrait de naissance est établi avant la date de naissance car ça constitue un obstacle dans la fiabilité de mes saisies.
Pour informations, j'utilise le VBA en EXCEL.
J'ai essayé plusieurs codes pris sur le forum sans succès.
Merci pour votre réponse.

1 réponse

Messages postés
15954
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2021
1 534
Bonjour,

exemple:

Private Sub CommandButton1_Click()
    D1 = CDate(TextBox1)
    D2 = CDate(TextBox2)
    
    If D2 < D1 Then
        MsgBox "beurkkk"
    Else
        MsgBox "Ok"
    End If
    
End Sub


vous pouvez aussi ajouter le test si se sont des dates
Merci pour la reponse
Pour Info, je ne suis pas très excellent alors simplifier un peu ma comprehension.
Voici un peu le code que j'ai intoduit dans une des textbox.
Alors quand j'ajoute le votre (code), le message d'alerte vient dès que j'introduit le premier chiffre.
Alors si vous pouvez corriger la programmation ci-dessous que j'ai dans ma textbox

Private Sub TextBox15_Change()
Dim Exemple As String
Dim ExDate As String
Exemple = TextBox15.Value
If ((Len(Exemple) > 5) And (Len(Exemple) < 10)) Then
Application.EnableEvents = False
ExDate = Mid(Exemple, 1, 2) & "/" & Mid(Exemple, 3, 2) & "/20" & Mid(Exemple, 5)
TextBox15.Value = ExDate
Application.EnableEvents = True
End If

End Sub

Private Sub TextBox15_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Pour saisir uniquement les Chiffres
If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
KeyAscii = 0
MsgBox ("NE SAISIR QU'UNE DATE VALIDE ou Par Exemple pour la date 01/02/2006, il faut ecrire : 010206")
Else
End If
End Sub
Messages postés
15954
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2021
1 534 > zonté
Re,

Alors quand j'ajoute le votre (code) Ben c'est un code pour un bouton de validation pas a mettre dans la textbox