Discussion :

[neiluj26]

Bonjour le forum,

J'ai le bout de code suivant inspiré par la FAQ dans une textbox, afin d'avoir une date bien formatée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub TxtDateReception_Change()
Dim Valeur As Byte
'------ Fonction qui permet d'ajouter les "/" après le jour et le mois
    txtDateReception.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
    Valeur = Len(txtDateReception)
    If Valeur = 2 Or Valeur = 5 Then txtDateReception = txtDateReception & "/"
    If Valeur = 10 Then txtDateReception = CDate(txtDateReception)
End Sub

Pour vérifier que l'utilisateur ne rentre pas une date dans le futur, j'ai écrit ce bout de code test:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub txtDateReception_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 
If txtDateReception.Value > Date Then
    MsgBox "C'est supérieur."
Else
    MsgBox "C'est inférieur."
End If
End Sub

Le problème est que j'ai beau rentrer 01/01/1900, j'ai toujours une msgbox "C'est supérieur". Et je ne sais pas pourquoi...

[Yolak]

Bonjour,

Pourquoi ne pas utiliser une fonction de comparaison de date ?
Voici le code tout prêt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub txtDateReception_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If DateDiff("d", TxtDateReception.Value, Date) < 0 Then
       MsgBox "C'est supérieur."
    Else
       MsgBox "C'est inférieur."
    End If
End Sub

Précision:
d=day=jour :p
Sinon, écris Datediff dans l'éditeur puis F1 pour avoir toutes les infos sur les paramètres.

[neiluj26]

Bonjour,

Je n'avais pas pensé à passer par la fonction DateDiff.
Effectivement, elle fonctionne, merci.

Par contre, je ne sais toujours pas pourquoi ma comparaison ne fonctionnait pas.

[Didier Gonard]

Par contre, je ne sais toujours pas pourquoi ma comparaison ne fonctionnait pas.

vois ceci

Comprendre et gérer les dates sous Excel et en VBA

cordialement,

Didier

[neiluj26]

Merci pour les réponses. C'est curieux, je passais pourtant la valeur de ma textbox en date.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    If Valeur = 10 Then txtDateReception = CDate(txtDateReception)

Bon, je vais lire le tuto et en apprendre plus.

Merci.

[mayekeul]

re,

juste pour info, lorsque tu fait ça tu lui dis :

"converti la date dans la text box en date et remet la dedans"...

c'est ce qu'il fait... mais dans la textbox... on ne trouve que du contenu "string"... donc ta date une fois remise en place est reconvertie en string...

euh... comment ça je suis pas clair!!!

[mayekeul]

bonjour,

parce que tu aurais du faire cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub txtDateReception_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'a ce niveau on compare deux date et non pas une date et du texte 
If cdate(txtDateReception.Value) > Date Then
    MsgBox "C'est supérieur."
Else
    MsgBox "C'est inférieur."
End If
End Sub

et faites toujours bien attention avec les valeurs implicites.