ListBox à multisélection

Bonjour,

sur un userform, j'ai une listbox alimentée par un combobox

Dans cette listbox des noms apparaissent en fonction du choix du combobox

Le clic sur un nom alimente des textbox modifiables

Je voudrais sélectionner plusieurs noms et leur affecter un caractère X par exemple qui ira se mettre sur une colonne de la base au regard des noms

Est-ce possible ou y a t-il une autre méthode ?
Merci de vos réponses éclairées
Cordialement

bonsoir

"au regard des nom " je suppose que c'est une conditions

un peu plus de precisions sur cette condition


au plaisir

bonjour,
Je joins un fichier texte pour être plus clair, mon fichier est trop volumineux

Merci de la réponse
Cordialement

bonjour

le cliché de ton application ne me parle pas beaucoup

cependand je comprend pas tres bien le besoins que tu a de selectionner plusieur item de ta liste sachant que sur la gauche il n'y a qu'un seul textbox pour chaque fonction (civilité,adresse,nom ,prenom)ect...

maintenant si tu veux alimenter une autre listbox avec seulement les item choisi de la premiere sachant que tu veux garder en memoire l'index de chaque item pour les faire corespondre a un eventuelle recherche sur un sheet
voici un exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub UserForm_Initialize() ListBox2.ColumnCount = 3 ListBox2.Clear For i = 1 To Sheets(1).Range("a65536").End(xlUp).Row ListBox1.AddItem Sheets(1).Range("a" & i) Next End Sub   Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)   If Button = 2 Then   ListBox2.Clear   For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i)   ListBox2.List(e, 1) = i + 1 'on met l'index de la ligne dans la colonne 2 e = e + 1 End If Next i End If End Sub

---

au plaisir

Merci de la réponse et surtout du code que je vais adapter, c'est à peu près ce que je souhaitais.
cordialement

bonjour

oui j'ai cru comprendre que l'important pour toi c'etait de memoriser l'index de la ligne pour pouvoir rechercher les données sur la feuille

donc au clic de la souris sur la listbox tu peut mettre

Code:

---

1 2 3 4 5 6 7 8 9

dim ligne as long ligne =listbox1.list(listebox1.listindex,1)'on tombe donc sur le numero de la ligne sur la quelle la donnée de la 1 ere colonne a été prise   'ensuite on peut par exemple: msgbox sheets(1).range("a"&ligne) & sheets(1).range("b"&ligne)   'si par exemple le nom est en colonne "a" et le prenom est en colonne "b" ton msgbox affichera le nom et le prenom

---

j'espere que ca te servira en tout cas n'hesite pas si tu a des question


et pour finir

il y a une solution bien plus simple pour faire ca si ca t'interresse
la methode "FIND"
exemple a supposer que tu remplisse ta liste box avec la colonne "a" qui contient les nom

ensuite au click de la souris sur la liste box

Code:

---

1 2 3 4 5 6 7 8 9

dim mot as string mot = listbox1 With Worksheets(nom de la feuille ou se trouvent les données).Range("a1:a500") Set c = .Find(mot, lookin:=xlValues) If Not c Is Nothing Then msgbox "le nom est" & c & "le prenom est " c.offset(0,1)   end if

---

allez je te laisse mijoter

au plaisir

Bonjour,

PatrickToulon

Pour être plus clair, je joins le fichier en question sur lequel dans le userform j'ai plaçé un label commentaire pour expliquer ce que je souhaite. En espérant avoir été limpide
cordialement

bonjour direct83


tiens pour tes deux listbox c'est resolu

il te suffi de cliquer avec souris gauche pour selectionner et clique droit souris rempli la deuxieme avec les selection de la premiere

pour le reste je n'ai pas tres bien compris

enfin voit si ca te conviens deja

au plaisir

Bonjour patricktoulon

Merci pour ta réponse

C'est pas tout à fait ce que j'attends. en fait ton système me bloque sur le fait que je ne plus sélectionner mes noms un par un et alimenter les textbox que je voudrais consulter aussi et pouvoir les modifier éventuellement.

Mon commentaire sur le userform :
Je voudrais dans cette listbox, sélectionner les noms qui m'intéressent puis les transférer dans la listbox ci-dessous ou autre form.Cette liste ci-dessous reste visible quelquesoit le choix de l'initiale.

Puis je voudrais inscrire une fois la deuxième listbox remplie et en même temps inscrire un X colonne B de la BDD (colonne invitation) ou colonne AB et en en tête de colonne une date et un texte ex 21/06/2011 14 juillet
Sur le userform, je voudrais aussi rappeler l'invitation (en clair quand je sélectionne un nom, je voudrais vérifier qu'il a bien été invité

Mon commentaire sur le userform :
En même temps que le remplissage ci-dessous, un caractère choisi (X par exemple) s'inscrit dans le fichier colonne AB par exemple avec inscription d'un nom et d'une date (par exemple inauguration Futsal 23 mars 2011) et est rappelé au moyen d'un textbox placé après courriel à gauche.

Avec un bouton sur le userform enfin je voudrais au moyen d'un boite de dialogue rappeler la colonne invitation (c'est à dire celle qui contient les invitations de la manisfestation concernée) puis mettre les données nom, prénom, etc sous forme de tableau à visualiser puis imprimer.

Mon commentaire sur le userform :
Puis au moyen d'un bouton sur le userform, je voudrais rappeler la liste d'invités basé sur le X colonne AB ou une autre liste basée sur le X colonne AC etc, la visualiser sous forme de tableau, nom, prénom etc. et l'imprimer éventuellement.

Voilà, j'espère avoir été le plus clair possible. Je pense que ce que je demande est tordu mais....

Merci de ton aide précieuse
Cordialement