changer couleur dans textbox

[gigi71850]

Bonjour, je souhaite que dans ma textbox il y est que 4 caractéres numerique max et que si il y en a moin le nombre s'affiche en rouge
merci

 

[Papou-net]

Re : changer couleur dans textbox

Bonsoir gigi71850, et bonne année,

Pour limiter à 4 le nombre de caractères de ta textbox, il faut modifier sa propriété MaxLength :

MaxLength = 4

pour modifier sa couleur, voici le code à insérer dans VBE, après double-clic sur la textbox :

Private Sub TextBox1_Change()
If Len(TextBox1.Value < 4) Then
  TextBox1.ForeColor = &HFF&
  Else
  TextBox1.ForeColor = &H80000008
End If
End Sub

Espérant t'avoir aidé.

Cordialement.

 

[Pierrot93]

Re : changer couleur dans textbox

Bonjour gigi, Papou

une autre solution :

With TextBox1
    .ForeColor = IIf(Len(.Value) < 4, &HFF&, &H80000008)
End With

bonne soirée
@+

 

[gigi71850]

Re : changer couleur dans textbox

Merci !!😀
maintenant comment faire pour coller la textbox dans une cellule (active.cell) en gardant la couleur rouge ou noir ?

 

[Papou-net]

Re : changer couleur dans textbox

Merci !!😀
maintenant comment faire pour coller la textbox dans une cellule (active.cell) en gardant la couleur rouge ou noir ?

En modifiant ton code comme celà, par exemple :

Private Sub TextBox1_Change()
If Len(TextBox1.Value < 4) Then
  TextBox1.ForeColor = &HFF&
  Feuil1.Range("A1").Font.ColorIndex = xlRed
  Else
  TextBox1.ForeColor = &H80000008
  Feuil1.Range("A1").Font.ColorIndex = xlAutomatic
End If
End Sub

Remplaces "Feuil1.Range("A1")" par les références appropriées.

Cordialement.

 

[gigi71850]

Re : changer couleur dans textbox

Merci pour ta réponse mais je n'arrive pas a placer ton code dans ma page je te donne un bout de mon programme

 

[Papou-net]

Re : changer couleur dans textbox

Merci pour ta réponse mais je n'arrive pas a placer ton code dans ma page je te donne un bout de mon programme

Avec un fichier joint, c'est plus facile de répondre avec précision.

Voici donc ton code modifié :

Private Sub CommandButton1_Click() 'bouton valider
With ActiveCell
  .Value = "BI " & TextBox1.Text  'colle valeur n°BI & ajoute les lettres BI
  If Len(TextBox1.Value) < 4 Then
    .Font.ColorIndex = 3
    Else
    .Font.ColorIndex = 0
  End If
End With
Unload Me
End Sub

Cordialement.