mckoy25 a écrit :
Bonjour
Après avoir planté mon pc j'ai perdu une macro forte intéressante présentant les données de mon classeur dans un userform. j'aimerais la recommencer...
J'ai une listbox contenant les titres d'une chanson (colonne B)
J'aimerais pouvoir afficher dans une textbox le nom de l'interprète (colonne C) suivant la valeur de la listbox (même ligne dans la feuille).
Si la valeur de la listbox change, le textbox doit changer aussi.
Merci d'avance
|
Faut créer un userform (userform1) sur lequel mettre une listbox (listbox1) et un textbox (textbox1), puis insérer ce code dans le code de la userform:
Code :
- Private Sub ListBox1_Click()
- Dim lIndex As Long
- lIndex = ListBox1.ListIndex + 1
- TextBox1.Value = Sheets("Sheet1" ).Cells(lIndex, 3).Value
- End Sub
|
Faut créer un module (module1) dans lequel insérer le code suivant:
Code :
- Sub showbox()
- UserForm1.ListBox1.RowSource = "B1:B" + CStr(Sheets("Sheet1" ).Cells(Rows.Count, 2).End(xlUp).Row)
- UserForm1.Show
- End Sub
- Sub hidebox()
- UserForm1.Hide
- End Sub
|
Appeler showbox pour afficher la forme et choisir l'information, appeler hidebox pour enlever la forme ...
---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
