Autres (RESOLU) AFFICHER MESSAGE DANS TEXTBOX SOUS CONDITION

[chaelie2015]

Bonsoir Forum
Dans mon Textbox1 nommée "txtDépart" j'ai une date; je souhaite afficher un message dans un autre Textbox2 "Attention: Départ Dimanche" si le jour de la semaine est dans Textbox1 dimanche.
merci par avance

 

[Phil69970]

Bonjour @chaelie2015

Je te propose :

Sub txtDépart_AfterUpdate()
If Weekday(txtDépart.Value, 2) = 7 Then
    Me.TextBox2.Value = "Attention: Départ Dimanche"
End If
End Sub

@merci de ton retour

@Phil69970

 

[Phil69970]

Re

@chaelie2015

Et c'est encore mieux avec ce code :

Sub txtDépart_AfterUpdate()
If Weekday(txtDépart.Value, 2) = 7 Then
    Me.TextBox2.Value = "Attention: Départ Dimanche"
Else
    Me.TextBox2.Value = ""
End If
End Sub

Merci de ton retour

@Phil69970

 

[chaelie2015]

Bonjour @chaelie2015

Je te propose :

Sub txtDépart_AfterUpdate()
If Weekday(txtDépart.Value, 2) = 7 Then
    Me.TextBox2.Value = "Attention: Départ Dimanche"
End If
End Sub

@merci de ton retour

@Phil69970

Bonjour @Phil69970
Merci pour la réponse c'est parfait, je souhaite ajouter un cas ou si j'efface la date dans txtDépart alors effacer le texte de TextBox2.
merci

 

[Phil69970]

@chaelie2015

Voir mon post # 3

🤣🤣🤣🤣

Merci de ton retour

@Phil69970

 

[chaelie2015]

@chaelie2015

Voir mon post # 3

🤣🤣🤣🤣

Merci de ton retour

@Phil69970

Re
Merci pour le fichier tu es très trop rapide😉, j'ai un message d'erreur d'exécution 13 (incompatibilité de type)
si je saisi la date après je l'efface j'aurai ce message (incompatibilité de type) ??
a+

 

[Phil69970]

Re

Essaye cette version

@Phil69970

 

[chaelie2015]

Re

Essaye cette version

@Phil69970

Re
Super merci infiniment phil69970,maintenant je peux aller faire dodo😁😜😜.
bonne nuit.