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.
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
zonté
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
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
Alors quand j'ajoute le votre (code) Ben c'est un code pour un bouton de validation pas a mettre dans la textbox