Private Sub AfterUpdate

Résolu

aminesc Messages postés 70 Date d'inscription dimanche 25 octobre 2015 Statut Membre Dernière intervention 3 juillet 2017 - 2 févr. 2016 à 16:03
aminesc Messages postés 70 Date d'inscription dimanche 25 octobre 2015 Statut Membre Dernière intervention 3 juillet 2017 - 3 févr. 2016 à 23:19

Bonjour,
voici se que j'ai fais en premier lieux

Private Sub date_depense_AfterUpdate()

If IsDate(date_depense.Value) And date_depense.Text Like "##/##/####" And Val(Mid(date_depense.Text, 4, 2)) < 13 Then
' forma de date corecte ==> ne rien faire
Else
MsgBox "la date doit être valide et à saisir obligatoirement sous la forme jj/mm/aaaa"
End If

End Sub

si la date n'est pas correcte le message est afficher je veux aussi qu'on peux pas saisir autre chose si la correction de la date ne sois pas encore faite

merci

A voir également:

Afterupdate vba
Byval vba - Conseils pratiques -Visual Basic / VB.NET
Vba doevents - Conseils pratiques -Visual Basic / VB.NET
Aide vba - Conseils pratiques -Visual Basic / VB.NET
Ubound vba - Forum Visual Basic 6
Commentaire vba ✓ - Forum Visual Basic

3 réponses

Réponse 1 / 3

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 212
Modifié par ucfoutu le 2/02/2016 à 17:24

Bonjour,
Que t'ai-je dit dans ton autre discussion à ce sujet ?
Pour mémoire :

le mieux est sans doute d'utiliser l'évènement Exit de ta textbox

________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

Réponse 2 / 3

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 212
3 févr. 2016 à 05:21

Va voir le petit cadeau matinal que je viens de déposer dans ton autre discussion.
Il est probablement tel que la question actuelle ne se pose même plus.

Réponse 3 / 3

aminesc Messages postés 70 Date d'inscription dimanche 25 octobre 2015 Statut Membre Dernière intervention 3 juillet 2017
3 févr. 2016 à 23:19

merci

Discussions similaires

fonction modulo en VBA

Comment fonctionne la fonction FormulaR1C1

A quoi sert la fonction Set ?

Dernière cellule non vide d'une colonne

Erreur d’exécution 424 : objet requis

Votre réponse

Discussions similaires