XL 2010 Textbox color

[CATPLUS]

Bonjour à tous
Mon soucis, ce programme fonctionne unique avec la cellule "A2", comment svp puis-je l'utiliser sur plusieurs cellules (de A2 à A20)
Bien cordialement

 

[sylvanu]

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

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

 

[job75]

Bonjour,

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

A+

 

[CATPLUS]

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