XL 2013 Combobox

[maval]

Bonjour

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

Mon code:

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

 

[dg62]

Bonjour Maval, le forum

A essayer

Private Sub ComboBox1_Change()
Dim ind As Integer
ComboBox1.ColumnCount = 20
For ind = 1 To 20
Controls("TBx_" & ind).Value = ComboBox1.Column(ind-1) ´merci ChTi160
Next ind
End Sub

 

[ChTi160]

Bonjour Max
Bonjour le Fil (dg62) ,le Forum
comme dit dans un autre fil

Private Sub ComboBox1_Change()
Dim ind As Integer
ComboBox1.ColumnCount = 20
For ind = 1 To 20
Controls("TBx_" & ind).Value = ComboBox1.Column(ind-1) ' Ici -1 colonne du Combobox 0 to x (19)
Next ind
End Sub

jean marie