[RESOLU]colorer les texebox sous conditions

chaelie2015 · 17 Juin 2016

Bonjour forum
dans mon USF j'ai ce code

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 · 17 Juin 2016

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 · 17 Juin 2016

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 · 17 Juin 2016

Re : colorer les texebox sous conditions

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

Code:

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

Pblm RESOLU
A+

[RESOLU]colorer les texebox sous conditions

chaelie2015

XLDnaute Accro

max.lander

XLDnaute Occasionnel

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Discussions similaires