Comparer deux dates de deux textboxs.

Zonté -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0
    1. 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
      0
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > 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
        0