R
robert51
Guest
Salut à tous,
Quelqun connait il un moyen de simplifier mon code.
If TextBox5.Visible = False Then TextBox5.Value = ''
If TextBox6.Visible = False Then TextBox6.Value = ''
If TextBox7.Visible = False Then TextBox7.Value = ''
If TextBox8.Visible = False Then TextBox8.Value = ''
If TextBox9.Visible = False Then TextBox9.Value = ''
If TextBox10.Visible = False Then TextBox10.Value = ''
If TextBox11.Visible = False Then TextBox11.Value = ''
If TextBox12.Visible = False Then TextBox12.Value = ''
If TextBox13.Visible = False Then TextBox13.Value = ''
If TextBox14.Visible = False Then TextBox14.Value = ''
If TextBox15.Visible = False Then TextBox15.Value = ''
If TextBox16.Visible = False Then TextBox16.Value = ''
If TextBox17.Visible = False Then TextBox17.Value = ''
If TextBox18.Visible = False Then TextBox18.Value = ''
If TextBox19.Visible = False Then TextBox19.Value = ''
et celui-ci
ange('B5').Value = TextBox5.Value
Range('c5').Value = TextBox6.Value
Range('d5').Value = TextBox7.Value
Range('e5').Value = TextBox8.Value
Range('B6').Value = TextBox9.Value
Range('c6').Value = TextBox10.Value
Range('d6').Value = TextBox11.Value
Range('e6').Value = TextBox12.Value
Range('b7').Value = TextBox13.Value
Range('c7').Value = TextBox14.Value
Range('d7').Value = TextBox15.Value
Range('e7').Value = TextBox16.Value
Range('b8').Value = TextBox17.Value
Range('c8').Value = TextBox18.Value
Range('d8').Value = TextBox19.Value
Range('e8').Value = TextBox20.Value
Range('B9').Value = TextBox21.Value
Range('c9').Value = TextBox22.Value
Range('d9').Value = TextBox23.Value
Range('e9').Value = TextBox24.Value
merci à tous
Quelqun connait il un moyen de simplifier mon code.
If TextBox5.Visible = False Then TextBox5.Value = ''
If TextBox6.Visible = False Then TextBox6.Value = ''
If TextBox7.Visible = False Then TextBox7.Value = ''
If TextBox8.Visible = False Then TextBox8.Value = ''
If TextBox9.Visible = False Then TextBox9.Value = ''
If TextBox10.Visible = False Then TextBox10.Value = ''
If TextBox11.Visible = False Then TextBox11.Value = ''
If TextBox12.Visible = False Then TextBox12.Value = ''
If TextBox13.Visible = False Then TextBox13.Value = ''
If TextBox14.Visible = False Then TextBox14.Value = ''
If TextBox15.Visible = False Then TextBox15.Value = ''
If TextBox16.Visible = False Then TextBox16.Value = ''
If TextBox17.Visible = False Then TextBox17.Value = ''
If TextBox18.Visible = False Then TextBox18.Value = ''
If TextBox19.Visible = False Then TextBox19.Value = ''
et celui-ci
ange('B5').Value = TextBox5.Value
Range('c5').Value = TextBox6.Value
Range('d5').Value = TextBox7.Value
Range('e5').Value = TextBox8.Value
Range('B6').Value = TextBox9.Value
Range('c6').Value = TextBox10.Value
Range('d6').Value = TextBox11.Value
Range('e6').Value = TextBox12.Value
Range('b7').Value = TextBox13.Value
Range('c7').Value = TextBox14.Value
Range('d7').Value = TextBox15.Value
Range('e7').Value = TextBox16.Value
Range('b8').Value = TextBox17.Value
Range('c8').Value = TextBox18.Value
Range('d8').Value = TextBox19.Value
Range('e8').Value = TextBox20.Value
Range('B9').Value = TextBox21.Value
Range('c9').Value = TextBox22.Value
Range('d9').Value = TextBox23.Value
Range('e9').Value = TextBox24.Value
merci à tous