Discussion :

[amilka]

bonjours,

J'ai un petit probleme.
J'ai créé une boite de dialogue avec un textbox et je veux que l'utilisateur tape une date.
j'arrive pas a dire a VBA que si le texte tapé n'est pas une date, je voudrais afficher un message d'erreur

Merci d'avance

Audrey

[casefayere]

Bonsoir
adaptes ce code

Code :

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

1
2
3
4
5
6
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1) Then
MsgBox "ce n'est pas une date"
textbox1.setfocus
end if
End Sub

[babaothe]

salut,

Va pour l'utilisation de Isdate (encore que, si seule, il peut y avoir des surprises d'interprétation généreuses de VB).
Mais alors : Cancel = True suffira pour revenir à la textbox.