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

Microsoft 365 Couleur TextBox suivant date

Francky79

XLDnaute Occasionnel

Pièces jointes

Lolote83

XLDnaute Barbatruc

Francky79

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency