Claudinedu13
XLDnaute Junior
Bonjour,
A l'aide du code ci-dessous, j'affiche un combobox à 2 colonnes, ça marche très bien mais je voudrais faire un classement alpha par rapport à la colonne 1, merci si vous pouvez m'aider...
Private Sub UserForm_Activate()
With ComboBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "100;140"
.List = Feuil4.Range("A2:B" & Feuil4.Range("A" & Rows.Count).End(xlUp).Row).Value
End With
End Sub
Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Column(0)
TextBox2.Value = ComboBox1.Column(1)
End Sub
A l'aide du code ci-dessous, j'affiche un combobox à 2 colonnes, ça marche très bien mais je voudrais faire un classement alpha par rapport à la colonne 1, merci si vous pouvez m'aider...
Private Sub UserForm_Activate()
With ComboBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "100;140"
.List = Feuil4.Range("A2:B" & Feuil4.Range("A" & Rows.Count).End(xlUp).Row).Value
End With
End Sub
Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Column(0)
TextBox2.Value = ComboBox1.Column(1)
End Sub