Comparer deux dates de deux textboxs.

Fermé

Zonté - 3 mai 2016 à 11:18
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 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.

A voir également:

Vba comparer deux dates
Deux comptes whatsapp - Guide
Deux ecran pc - Guide
Comparer prix amazon - Guide
Alignez la date à droite. alignez "monsieur le directeur” à gauche. alignez des deux côtés le texte du courrier. ✓ - Forum Word
Excel compris entre deux dates ✓ - Forum Excel

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 3/05/2016 à 14:44

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

zonté
Modifié par zonté le 3/05/2016 à 15:45

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > zonté
3 mai 2016 à 16:06

Re,

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

Discussions similaires

Un seul de mes écouteurs marche. Que faire ?

2 comptes facebook avec même mail et même nom

somme.si.ens critere entre deux dates

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Discussions similaires

Newsletters