comparer deux dates

phlaurent55

Nous a quittés en 2020

Repose en paix

• 3 Septembre 2014

• #2

Re : comparer deux dates

Bonjour zephir,

essaie en remplaçant: (TextBox2.Text)

par: (TextBox2)

mettre également ces deux lignes en une seule
If IsDate(TextBox2.Text) > Date Then
MsgBox " hahaha"

If IsDate(TextBox2.Text) > Date Then MsgBox " hahaha"


et supprimer:
Else
End If

à+
Philippe

 

Dernière édition: 3 Septembre 2014

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 3 Septembre 2014

• #3

Re : comparer deux dates

Bonsir zephir94, le Forum,

Peut-être:

Code:

Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
If Not IsDate(TextBox2.Text) Then MsgBox "La saisie de la date est incorrecte"
  
If CDate(TextBox2.Value) > Date Then
    MsgBox " hahaha"
End If
End Sub

Ouuups: Bonsoir phlaurent55

@+

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 3 Septembre 2014

• #4

Re : comparer deux dates

Non hélas cela n'a rien changé !
Que se soit .value, .text, ... en pas à pas j'ai bien 04/09/2014 de saisie et la date du jour 03/09/2014
et sa va directement à else !

 

Dernière édition: 3 Septembre 2014

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 3 Septembre 2014

• #5

Re : comparer deux dates

Bonsoir zephir94, le Forum

Avec ceci, si le format Date correspond:

Code:

Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
If Not IsDate(TextBox2) Then MsgBox "La saisie de la date est incorrecte"
  
If CDate(TextBox2.Value) > Format(Now, "dd/mm/yyyy") Then
    MsgBox " hahaha"
End If
End Sub

EDIT: Je m'à trompé, c'est bien : Format(Now, "dd/mm/yyyy")

@+

 

Dernière édition: 3 Septembre 2014

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 3 Septembre 2014

• #6

Re : comparer deux dates

Re,

zephir94 à dit:

Non hélas cela n'a rien changé !
Que se soit .value, .text, ... en pas à pas j'ai bien 04/09/2014 de saisie et la date du jour 03/09/2014
et sa va directement à else !

Cliquez pour agrandir...

Else, suivi de End If ne servent à rien

voir ma réponse apportée au post#2

à+
Philippe

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 3 Septembre 2014

• #7

Re : comparer deux dates

Non ça marche pas phlaurent55 !
ta nouvelle proposition, mais le plus drôle c'est que j'ai bien en pas à pas dans les variables 04/09/2014 >03/09/2014

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 3 Septembre 2014

• #8

Re : comparer deux dates

xhudi69 à dit:

Bonsoir zephir94, le Forum

Avec ceci, si le format Date correspond:

Code:

Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
If Not IsDate(TextBox2) Then MsgBox "La saisie de la date est incorrecte"
  
If CDate(TextBox2.Value) > Format(Now, "dd/mm/yyyy") Then
    MsgBox " hahaha"
End If
End Sub

EDIT: Je m'à trompé, c'est bien : Format(Now, "dd/mm/yyyy")

@+

Cliquez pour agrandir...

Merci ça fonctionne au poils ! mais j'ai du mal à me l'expliquer ????
car en pas à pas ça rajoute l'heure seulement !
par contre malgré else il ne stop pas la macro et passe à la textbox suivante donc j'ai ajouté un exit sub mais c'est pareille !

 

Dernière édition: 3 Septembre 2014

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 3 Septembre 2014

• #9

Re : comparer deux dates

Bonsoir zephir, le Forum,

Est-ce-que ma solution au Post #5 fonctionne, car chez moi c'est la cas

EDIT: désolé pour le croisement, c'est normal, c'est Excel, toujours faché avec le format date

@+

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 3 Septembre 2014

• #10

Re : comparer deux dates

par contre malgré else il ne stop pas la macro et passe à la textbox suivante donc j'ai ajouté un exit sub mais c'est pareille !

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 3 Septembre 2014

• #11

Re : comparer deux dates

C'est bon j'ai trouvé la solution j'ai fait :

Code:

 Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  
  If Not IsDate(TextBox2.Text) Then MsgBox "La saisie de la date est incorrecte"
 

If CDate(TextBox2.Value) > Format(Now, "dd/mm/yyyy") Then
     MsgBox "hahaha"
[COLOR="#FF0000"]TextBox2.Value = ""[/COLOR]
Exit Sub
Else
End If
End Sub

et comme sur le commandbuton je vérifie que tous mes textbox soient bien remplies je retombe sur mes pieds !
Merci à vous tous

 

Vote positif 0 Vote négatif