Autres (RESOLU) AFFICHER MESSAGE DANS TEXTBOX SOUS CONDITION

Phil69970

XLDnaute Barbatruc

• 8 Février 2022

• #2

Bonjour @chaelie2015

Je te propose :

VB:

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Février 2022

• #3

Re

@chaelie2015

Et c'est encore mieux avec ce code :

VB:

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

 

Pièces jointes

• Date textbox V1.xlsm

  147.9 KB · Affichages: 4

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 9 Février 2022

• #4

Phil69970 à dit:

Bonjour @chaelie2015

Je te propose :

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Février 2022

• #5

@chaelie2015

Voir mon post # 3

🤣🤣🤣🤣

Merci de ton retour

@Phil69970

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 9 Février 2022

• #6

Phil69970 à dit:

@chaelie2015

Voir mon post # 3

🤣🤣🤣🤣

Merci de ton retour

@Phil69970

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Février 2022

• #7

Re

Essaye cette version

@Phil69970

 

Pièces jointes

• Date textbox V2.xlsm

  150.5 KB · Affichages: 6

Vote positif 0 Vote négatif

Solution

chaelie2015

XLDnaute Accro

• 9 Février 2022

• #8

Phil69970 à dit:

Re

Essaye cette version

@Phil69970

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif