Listbox [Résolu]

amram.a 57 Messages postés dimanche 19 mars 2017Date d'inscription 19 avril 2017 Dernière intervention - 4 avril 2017 à 00:00 - Dernière réponse : amram.a 57 Messages postés dimanche 19 mars 2017Date d'inscription 19 avril 2017 Dernière intervention
- 17 avril 2017 à 16:39
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




http://www.cjoint.com/c/GDdwo7fc1Th
Afficher la suite 

8 réponses

Répondre au sujet
f894009 12542 Messages postés dimanche 25 novembre 2007Date d'inscription 16 décembre 2017 Dernière intervention - Modifié par f894009 le 4/04/2017 à 07:18
0
Utile
3
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
amram.a 57 Messages postés dimanche 19 mars 2017Date d'inscription 19 avril 2017 Dernière intervention - 4 avril 2017 à 18:42
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

http://www.cjoint.com/c/GDeqPtCmbCe
f894009 12542 Messages postés dimanche 25 novembre 2007Date d'inscription 16 décembre 2017 Dernière intervention > amram.a 57 Messages postés dimanche 19 mars 2017Date d'inscription 19 avril 2017 Dernière intervention - 4 avril 2017 à 18:46
Bonjour,

votre fichier n'est pas le bon, pas de listbox...
J'en ai un qui a la listbox, je regarde la chose
A+
amram.a 57 Messages postés dimanche 19 mars 2017Date d'inscription 19 avril 2017 Dernière intervention > f894009 12542 Messages postés dimanche 25 novembre 2007Date d'inscription 16 décembre 2017 Dernière intervention - 4 avril 2017 à 19:54
Commenter la réponse de f894009
f894009 12542 Messages postés dimanche 25 novembre 2007Date d'inscription 16 décembre 2017 Dernière intervention - 5 avril 2017 à 09:10
0
Utile
3
Bonjour,

Fichier modifie: http://www.cjoint.com/c/GDfhkf0a4cf
amram.a 57 Messages postés dimanche 19 mars 2017Date d'inscription 19 avril 2017 Dernière intervention - 5 avril 2017 à 13:48
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

http://www.cjoint.com/c/GDflU5RFJAt
f894009 12542 Messages postés dimanche 25 novembre 2007Date d'inscription 16 décembre 2017 Dernière intervention > amram.a 57 Messages postés dimanche 19 mars 2017Date d'inscription 19 avril 2017 Dernière intervention - 14 avril 2017 à 17:56
Bonjour,
Dans
Private Sub ListBox1_Click()


Ajoutez un \ devant PHOTO, voir ci-dessous
 If Dir(ThisWorkbook.Path & "\PHOTOS\" & "\" & TextBox1 & ".jpg") = "" Then
amram.a 57 Messages postés dimanche 19 mars 2017Date d'inscription 19 avril 2017 Dernière intervention > f894009 12542 Messages postés dimanche 25 novembre 2007Date d'inscription 16 décembre 2017 Dernière intervention - 17 avril 2017 à 16:39
MERCI F894009
ça marche
Commenter la réponse de f894009