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:
Merci d'avance
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
Max
Partager