Simplifier mon code

maval · 26 Novembre 2014

Bonjour

J'ai six Textbox et une listbox sur mon formulaire lorsque je click sur un item de la listbox les fond de mes textbox deviennent vert avec se code:

Code:

With Me.TextBox1
.Value = ""
.BackColor = 12648384 'vert clair
End With
With Me.TextBox2
.Value = ""
.BackColor = 12648384 'vert clair
End With
With Me.TextBox3
.Value = ""
.BackColor = 12648384 'vert clair
With Me.TextBox4
.Value = ""
.BackColor = 12648384 'vert clair
With Me.TextBox5
.Value = ""
.BackColor = 12648384 'vert clair
End With
With Me.TextBox6
.Value = ""
.BackColor = 12648384 'vert clair
End With

Comment peut on simplifier?

Merci d'avance

Pierrot93 · 26 Novembre 2014

Re : Simplifier mon code

Bonjour,

essaye avec ceci :

Code:

Dim i As Byte
For i = 1 To 6
    With Me.Controls("TextBox" & i)
        .Value = ""
        .BackColor = 12648384 'vert clair
    End With
Next i

bonne journée
@+

maval · 26 Novembre 2014

Re : Simplifier mon code

Bonjour Pierrot

Je te remercie Nickel

Bonne journée

Simplifier mon code

maval

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires

Simplifier mon code

maval

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency