Validation date VBA

[mécano41]

Bonjour et bonne année à tous,

Quelqu'un pourrait-il me dire pourquoi dans la routine de validation de date jointe, le Setfocus ne fonctionne pas?

J'ai crée cette routine parce que je n'ai rien trouvé, mais si quelqu'un a plus simple, je suis preneur...

Merci d'avance

Cordialement

 

[Denis]

Re : Validation date VBA

Bonjour Mecano et le Forum
mets cette ligne :
If ErrDate = True Then Me.DateAvalider.SetFocus
juste avant le end sub

Bon courage et à +
Denis

 

[Pierrot93]

Re : Validation date VBA

Bonjour Mecano, Deni

une autre solution, vérifiation lors de l'événement "exit" et annulation si n'est pas une date... Si cela peut t'aider...

Private Sub DateAvalider_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsDate(CDate(DateAvalider.Value)) Then
    MsgBox "date erronée..."
    Cancel = True
    End If
End Sub

bon après midi
@+

 

[pierrejean]

Re : Validation date VBA

bonjour mécano41

Un essai a ma façon (a tester )

 

[mécano41]

Re : Validation date VBA

Merci à tous pour ces réponses.

Effectivement avec le if not isdate(...) cela simplifie quelque peu les choses.

Je vais ajouter quelques tests pour détecter une éventuelle saisie de lettre et le tour sera joué.
Bonne idée d'ajouter les "/" automatiquement...au début cela surprend un peu mais s'il y a beaucoup de dates à saisir c'est intéressant.

Merci encore,

Cordialement

 

[Pierrot93]

Re : Validation date VBA

Re, bonsoir PierreJean🙂

pour controler la saisie, tu peux aussi utiliser l'événement "KeyPress" ainsi :

Private Sub DateAvalider_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789/", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

bonne soirée
@+

 

[mécano41]

Re : Validation date VBA

Merci Pierrot93, tu viens de m'éviter 6 x 5 lignes de code et c'est impeccable!

Encore merci à tous et bonne soirée

Cordialement

 

[pierrejean]

Re : Validation date VBA

Re

@ Pierrot 🙂

1) mes excuses pour avoir omis de te saluer
2) Merci egalement pour le Keypress qui , je l'espere , me restera en mémoire

 

[Pierrot93]

Re : Validation date VBA

Re

Pas de souci PierreJean🙄 , J'en profite pour te présenter tous mes voeux, à toi et à ton épouse,pour cette nouvelle Année. Au plaisir de te croiser.

@+

 

[mécano41]

Re : Validation date VBA

A toutes fins utiles, voici l'objet ... fait d'après vos conseils ...

Cordialement