Remplissage Listbox

Remplissage Listbox - VB/VBA/VBS - Programmation

Marsh Posté le 03-11-2005 à 16:23:54    

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

Reply

Marsh Posté le 03-11-2005 à 16:23:54   

Reply

Marsh Posté le 04-11-2005 à 09:58:04    

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 :
  1. Private Sub ListBox1_Click()
  2. Dim lIndex As Long
  3. lIndex = ListBox1.ListIndex + 1
  4. TextBox1.Value = Sheets("Sheet1" ).Cells(lIndex, 3).Value
  5. End Sub


 
Faut créer un module (module1) dans lequel insérer le code suivant:
 

Code :
  1. Sub showbox()
  2. UserForm1.ListBox1.RowSource = "B1:B" + CStr(Sheets("Sheet1" ).Cells(Rows.Count, 2).End(xlUp).Row)
  3. UserForm1.Show
  4. End Sub
  5. Sub hidebox()
  6. UserForm1.Hide
  7. 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.
Reply

Marsh Posté le 05-11-2005 à 00:27:00    

Je vais essayer de mieux expliquer car c pa la réponse que je cherche
mon tableau se présente de la sorte :
 
         B               C               D              E
1     Titre         Format     Interprète      Genre
2
3   Candy Shop   wma          50 Cent        Rap
4     Exodus        mp3      Bob Marley        Reggae
...
 
J'ai défini le nom de diverses plages de cellules :
B3 : B500 = "Titre"  C3:C500 = "Format, etc.
 
Je suppose que je peux mieux nommer mes plages de cellules jusqu'à la dernière cellule non vide
 
Le formulaire contient une listbox avec le titre de la chanson.
Comment enlever les 2 petites flèches à droite de celle-ci ???? Et contenir le focus à l'initialisation de l'userform ?????
 
Le choix de la listbox doit alimenter diverses text box
Ex : dans le textbox 1 le format de la chanson  , dans le textbox 2 l'interprète, etc.

Reply

Marsh Posté le 05-11-2005 à 15:12:41    

Merci à toi pour ton aide prcieuse g résolu mon problème mais un autre arrive...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed