Signaler

Listbox [Résolu]

Posez votre question amram.a 57Messages postés dimanche 19 mars 2017Date d'inscription 19 avril 2017 Dernière intervention - Dernière réponse le 17 avril 2017 à 16:39 par amram.a
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
Utile
+0
plus moins
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 57Messages 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
Répondre
f894009 12300Messages postés dimanche 25 novembre 2007Date d'inscription 18 octobre 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+
Répondre
amram.a 57Messages postés dimanche 19 mars 2017Date d'inscription 19 avril 2017 Dernière intervention - 4 avril 2017 à 19:54
ok vois ça


http://www.cjoint.com/c/GDerYlvYQye
Répondre
Donnez votre avis
Utile
+0
plus moins
Bonjour,

Fichier modifie: http://www.cjoint.com/c/GDfhkf0a4cf
amram.a 57Messages 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
Répondre
f894009 12300Messages postés dimanche 25 novembre 2007Date d'inscription 18 octobre 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
Répondre
amram.a 57Messages postés dimanche 19 mars 2017Date d'inscription 19 avril 2017 Dernière intervention - 17 avril 2017 à 16:39
MERCI F894009
ça marche
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !