Listbox
Résolu
amram.a
Messages postés
58
Statut
Membre
-
amram.a Messages postés 58 Statut Membre -
amram.a Messages postés 58 Statut Membre -
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
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
2 réponses
-
Bonjour,
informations de cette personne affiche dans les autre champs
Alors, pourquoi vous ecrivez ceci:
While ComboBox1.Text = Range("B" & I).Value
Range("C" & I).Select
ListBox1.AddItem Range("C" & I)
I = I + 1
Wend
puisque les infos doivent etre mises dans des textbox?
Pour avoir plus facilement la lignes des infos de la personne selectionnee, parametrez la listbox1 avec deux colonnes et mettez le numero de ligne dans la deuxieme colonne a chaque nom trouve-
bonsoir f894009
certainement j'ai beau essayer à ma manière mais ça ne marche pas
voici en pièce jointe si dessous
vraiment si tu peux voir pour corrigé ça vas me faire plaisir
merci beaucoup pour ton aide depuis le temps
https://www.cjoint.com/c/GDeqPtCmbCe
-
-
-
bonjour f894009
merci pour ton aide ça passe correctement mais j’ai un petit soucis:
l'image n'affiche pas
voir la pièce jointe
https://www.cjoint.com/c/GDflU5RFJAt
-
