[RESOLU]colorer les texebox sous conditions

[chaelie2015]

Bonjour forum
dans mon USF j'ai ce code

Private Sub ComboBox1_Change()

If ComboBox1.ListIndex = -1 Then Exit Sub
Me.TextBox1.Value = Range("liste!G" & ComboBox1.ListIndex + 3) & " Jour(s)"
Me.TextBox2.Value = Range("liste!H" & ComboBox1.ListIndex + 3) & " Jour(s)"
Me.TextBox3.Value = Range("liste!I" & ComboBox1.ListIndex + 3) & " Jour(s)"
Me.TextBox4.Value = Range("liste!J" & ComboBox1.ListIndex + 3) & " Jour(s)"
Me.TextBox5.Value = Range("liste!K" & ComboBox1.ListIndex + 3) & " Jour(s)"

End Sub

je souhaite colorer en vert (par exemple) les TextBox si la valeur sup a 30
Salutations

 

[max.lander]

Re : colorer les texebox sous conditions

Salut à tous,


Peut-être comme ça :

For i = 1 To 5

If Me.Controls("TextBox" & i).Value > 30 Then

Me.Controls("TextBox" & i).BackColor = vbGreen
End If




Next

 

[chaelie2015]

Re : colorer les texebox sous conditions

Bonjour max.lander
merci pour la réponse, ça fonctionne parfaitement, mais avec le format personnalisé des TextBox ça ne fonctionne pas ?
A+

 

[chaelie2015]

Re : colorer les texebox sous conditions

Re
désolé max.lander
maintenat ça fonction parfaitement , j"ai ajouté & " Jour(s)" Then

......
If Me.Controls("TextBox" & i).Value > 30 & " Jour(s)" Then
.........

Pblm RESOLU
A+