Comparer deux dates de deux textboxs.
Fermé
Zonté
-
3 mai 2016 à 11:18
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 - 3 mai 2016 à 16:06
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 - 3 mai 2016 à 16:06
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.
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.
A voir également:
- Vba comparer deux dates
- Nombre de jours entre deux dates excel - Guide
- Deux ecran pc - Guide
- Faire deux colonnes sur word - Guide
- Itinéraire google map entre deux adresses - Guide
- Deux whatsapp sur un téléphone - Guide
1 réponse
f894009
Messages postés
17268
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 mars 2025
1 713
Modifié par f894009 le 3/05/2016 à 14:44
Modifié par f894009 le 3/05/2016 à 14:44
Bonjour,
exemple:
vous pouvez aussi ajouter le test si se sont des dates
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
Modifié par zonté le 3/05/2016 à 15:45
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
3 mai 2016 à 16:06
Alors quand j'ajoute le votre (code) Ben c'est un code pour un bouton de validation pas a mettre dans la textbox