Listbox
Résolu
amram.a
Messages postés
56
Date d'inscription
Statut
Membre
Dernière intervention
-
amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention -
amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention -
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
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
Bonjour,
Fichier modifie: https://www.cjoint.com/c/GDfhkf0a4cf
Fichier modifie: https://www.cjoint.com/c/GDfhkf0a4cf
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
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
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
votre fichier n'est pas le bon, pas de listbox...
J'en ai un qui a la listbox, je regarde la chose
A+
https://www.cjoint.com/c/GDerYlvYQye