Listbox

Salut

j'ai réalisé une userform sur la quelle se trouve combobox1 et listbox1

mon objectif est que en sélectionnant une lettre alphabétique dans la combobox1, toutes personnes enregistrés sous cette lettre s’affiche automatiquement dans la listbox1

puis en cliquant sur chaque nom de la listbox1 e reste des informations de cette personne affiche dans les autres champs

le tableau commence de la colonne A à Y soit 25 colonnes

les la colonne B est est la colonne de la lettre alphabétique et les noms dans la colonne C

la feuille est nommée IDENTIFICATION

voici le code que j'ais puis utilisé:

Salut

j'ai réalisé une userform sur la quelle se trouve combobox1 et listbox1

mon objectif est que en sélectionnant une lettre alphabétique dans la combobox1, toutes personnes enregistrés sous cette lettre s’affiche automatiquement dans la listbox1

puis en cliquant sur chaque nom de la listbox1 e reste des informations de cette personne affiche dans les autre champs

le tableau commence de la colonne A à Y soit 25 colonnes

les la colonne B est est la colonne de la lettre alphabétique et les noms dans la colonne C

la feuille est nommé IDENTIFICATION

voici le code que j’ai puis utilisé:

Private Sub ComboBox1_Change()
ListBox1.Clear
Dim I As Integer
Var = Sheets("IDENTIFICATION").Range("A70").End(xlUp).Row + 1
For I = 1 To Var
While ComboBox1.Text = Range("B" & I).Value
Range("C" & I).Select
ListBox1.AddItem Range("C" & I)
I = I + 1
Wend
Next I
End Sub
Private Sub ListBox1_Click()
Dim I As Integer
Var = Sheets("IDENTIFICATION").Range("A70").End(xlUp).Row + 1
For I = 1 To Var
While ListBox1.Text = Range("C" & I).Value
ListBox1.Text = Range("A" & I).Value

I = I + 1
Wend
Next I
End Sub

voir si dessous en image et pièce jointe



https://www.cjoint.com/c/GDdwo7fc1Th