XL 2010 Textbox color

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Mars 2024

• #2

Bonjour CatPlus,
Pas sur d'avoir bien compris, mais testez :

VB:

Private Sub TextBox1_Change()
    If Application.CountIf([A2:A20], TextBox1) > 0 Then
        TextBox1.BackColor = &H80FF80
    Else
        TextBox1.BackColor = &HFF&
    End If
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Mars 2024

• #3

Bonjour,

VB:

Private Sub TextBox1_Change()
    TextBox1.BackColor = IIf(Application.CountIf(Range("A2:A20"), TextBox1), &H80FF80, &HFF&)
End Sub

A+

 

Vote positif 0 Vote négatif

Solution

C

CATPLUS

XLDnaute Junior

• 11 Mars 2024

• #4

Merci à tous les deux.
Cela corresponds à ma demande
Vous souhaitant une bonne fin de journée
Cordialement

 

Vote positif 0 Vote négatif