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
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 actuelementCode:
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
au plaisir de vous lire
merci
