Microsoft 365 Couleur TextBox suivant date

Francky79 · 7 Décembre 2023

Bonjour,

Comment faire une MFC dans une Textbox suivant une Date ?
Dans Textbox2 mettre en rouge si date inférieure à la date du jour.
Voir fichier joint.

Et encore merci pour votre aide.

Lolote83 · 7 Décembre 2023

Bonjour @Francky79,
Peut être comme ceci

VB:

Private Sub TextBox2_Change()
    If CDate(Me.TextBox2.Value) = DateValue(Date) Then
        Me.TextBox2.BackColor = vbRed
    Else
        Me.TextBox2.BackColor = vbWhite
    End If
End Sub

Avec la ligne If CDate(Me.TextBox2.Value) = DateValue(Date) Then
@+ Lolote83

Lolote83 · 7 Décembre 2023

Bonjour @Francky79,
Peut être comme ceci

VB:

Private Sub TextBox2_Change()
    If CDate(Me.TextBox2.Value) = DateValue(Date) Then
        Me.TextBox2.BackColor = vbRed
    Else
        Me.TextBox2.BackColor = vbWhite
    End If
End Sub

Avec la ligne If CDate(Me.TextBox2.Value) = DateValue(Date) Then
@+ Lolote83

Francky79 · 7 Décembre 2023

Merci Lolote83

Microsoft 365 Couleur TextBox suivant date

Francky79

XLDnaute Occasionnel

Pièces jointes

Lolote83

Lolote83

XLDnaute Barbatruc

Francky79

XLDnaute Occasionnel

Discussions similaires