Bonjour

Comment je peut faire pour avoir un code un peut pluss esthétique je voulais savoir si on pouvait le raccourcir.. oui je suis sur que l'on peux ?

Mon code:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub ComboBox1_Change()
TBx_1.Value = ComboBox1.Column(1)
TBx_2.Value = ComboBox1.Column(2)
TBx_3.Value = ComboBox1.Column(3)
TBx_4.Value = ComboBox1.Column(4)
TBx_5.Value = ComboBox1.Column(5)
TBx_6.Value = ComboBox1.Column(6)
TBx_7.Value = ComboBox1.Column(7)
TBx_8.Value = ComboBox1.Column(8)
TBx_9.Value = ComboBox1.Column(9)
TBx_10.Value = ComboBox1.Column(10)
TBx_11.Value = ComboBox1.Column(11)
TBx_12.Value = ComboBox1.Column(12)
TBx_13.Value = ComboBox1.Column(13)
TBx_14.Value = ComboBox1.Column(14)
TBx_15.Value = ComboBox1.Column(15)
TBx_16.Value = ComboBox1.Column(16)
TBx_17.Value = ComboBox1.Column(17)
TBx_18.Value = ComboBox1.Column(18)
TBx_19.Value = ComboBox1.Column(19)
TBx_20.Value = ComboBox1.Column(20)
 
End Sub
Merci d'avance

Max