Double liste : comment sélectionner

  • Initiateur de la discussion Initiateur de la discussion naisan
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

naisan

Guest
Double liste : sélectionner dans liste2 en cliquant dans liste1 ???

Bonjour,
dans mon formulaire j'ai 2 listes :
- je tape un mot dans la liste de recherche et il m'affiche ("listbox1") toutes les informations de ma feuille qui contiennent ce mot.

Problème N°1 : la 2ème liste ("choixtitre") affiche tous les titres DVD de mon tableau et je voudrais qu'en cliquant sur un résultat de recherche de "listbox1" je sélectionne le titre du film correspondant dans "choixtitre", bien sûr sans effacer les autres titres.

Problème N°2 : on peut faire précéder les résultats qui s'affichent dans "listbox1" d'un caractère (flêche, tiret, etc...) mais :
- comment afficher un caractère après la valeur du résultat ?
- comment ajouter le titre de film correspondant dans ce même résultat ?

Merci d'avance, je suis bloqué dessus depuis des jours ! débutant comme je suis, j'adapte ce qui existe mais je n'arrive à créer ces petits trucs en plus qui soulage la vie !
 

Pièces jointes

Dernière modification par un modérateur:
Re : Double liste : comment sélectionner

Bonjour et bienvenue,

Voici ton fichier modifié.

Pour la question dans le code du Textbox1_Change(), si j'ai bien compris :
Code:
ListBox1.AddItem C & " => " & Range("D" & C.Row)
Pour la question dans le code de la Listbox1_Click() :
Code:
Private Sub ListBox1_Click()

Dim Ligne As Integer
Dim Cible As String
Dim C As Range

Cible = Right(ListBox1, Len(ListBox1) - InStr(1, ListBox1, ">") - 1)
Ligne = Sheets("mes films").Range("A65536").End(xlUp).Row
choixtitre = Cible

With Sheets("mes films").Range("D3:D" & Ligne)
  Set C = .Find(Cible)
    If Not C Is Nothing Then
       C.Select
    End If
End With

End Sub
J'ai aussi modifié la façon d'alimenter le USF à cause du film "300". Comme c'est du numérique cela provoquait une erreur lors de la sélection dans la Listbox "choixtitre". (même en le passant en String avec la fonction Cstr).

A+
 

Pièces jointes

Dernière édition:
Re : Double liste : comment sélectionner

Morteeeel !
merci bqtr et kjin, ça marche à merveille. Je vai pouvoir greffer quelques champs supplémentaires maintenant pour afficher toutes les infos des films, comme un grand 🙂.
merci, A+ !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

B
Réponses
5
Affichages
3 K
M
Réponses
7
Affichages
14 K
M
Retour