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