Afficher les deux colonne dans une combobox
bonsoir le forum,
j'ai une combobox dans laquelle je fait apparaitre dans la liste de recherche deux colonnes qui fonctione bien a un petit détail quand je déroule la liste j'ai bien le nom et le prénom, mais quand je selectionne une ligne dans la combobox seul le nom reste le prénom n'est pas afficher pourquoi ?
voici les code de ma combobox
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
Private Sub UserForm_Initialize() ' [1] INITIALISE USERFORM (Départ)
ComboBox1.ColumnCount = 2
ComboBox1.AddItem "Item 1, Column 1"
ComboBox1.list(0, 1) = "Item 1, Column 2"
ComboBox1.AddItem "Item 2, Column 1"
ComboBox1.list(1, 1) = "Item 2, Column 2"
ComboBox1.Value = "Item 1, Column 1"
ComboBox1.Visible = False
TextBox2.Visible = False
Label3.Visible = False
End Sub
Private Sub checkbox1_change() 'CREATION
Dim Plage As Range
With Worksheets("liste_clients")
Set Client1 = .Range("B3")
Set Plage = .Range(Client1, .Range("C65536").End(xlUp))
Set Tableau = Plage.Resize(, 10)
End With
ComboBox1.list = Plage.Value
Me.ComboBox1.ListIndex = -1
Select Case CheckBox1.Value
Case True: 'Label3.Caption = Application.Max(Sheets("liste_clients").Columns("A"))
Me.Label3 = ""
ComboBox1.Visible = True
Label1.Visible = True
CheckBox2.Visible = False
Label2.Visible = True
TextBox2.Visible = False
Label3.Visible = True
Case False:
ComboBox1.Visible = False
CheckBox2.Visible = True
Label2.Visible = True
Label3.Visible = False
TextBox2.Visible = False
End Select
End Sub |
ma combobox comme vous pouvez le voir a bien deux colonne de déclaré et ma recherche dans ma liste client se fait bien sur les colonne B (nom) et C (prénom) donc dans la liste de resultat j'ai bien le nom et le prénom mais pas dans ma combobox ou ai-je oublié quelque chose et deusième chose si je peut abusé de votre gentillesse comment faire pour que dans la liste de resultat de ma combobox l'affichage se fasse par ordre alphabetique et nom dans l'ordre de création comme ca l'est actuelement
au plaisir de vous lire
merci