Remplir des textbox à partir d'une listbox

Question

Bonjour, 

Derrière une listbox, j'ai un tableau excel avec plusieurs colonne mais ma listbox ne fait apparaitre que les éléments de la première colonne de ce même tableau.

Par exemlpe : 
nom des fournisseurs (colonne A)
numéro de téléphone (colonne B)
adresse email (colonne C)

En cliquant sur le nom d'un fournisseur de ma listbox, je souhaite faire apparaitre le numéro de tél et l'adresse mail dans deux textbox séparées.

Je ne trouve aucune info sur le net.

N'est-ce pas possible ?

Si quelqu'un a une idée, je suis preneur.

Merci d'avance.

Salut.


Configuration: Windows XP / Internet Explorer 7.0

f894009 · Answer

Bonjour, 

Dans un premier temps, Listbox multicolonnes sur une feuille de calcul

'code a mettre dans ThisWorkbook 
Private Sub Workbook_Open() 
  'Nombre de colonnes 
  Sheets("feuil1").ListBox1.ColumnCount = 3 
  'Remplissage de la liste en passant par un tableau de donnees 
  tablo = Sheets("feuil1").Range("A1:C10").Value 
  Sheets("feuil1").ListBox1.Column() = Application.Transpose(tablo) 
  'Definition de l'index (utilise pour affichage ou autre) 
  Sheets("feuil1").ListBox1.ListIndex = Sheets("feuil1").ListBox1.ListCount - 1 
End Sub 


'Pour listbox 
'Affichage du choix  
Private Sub ListBox1_Click() 
  With ListBox1 
    'Colonne A: A1...... 
    Worksheets("feuil1").Range("D2") = .List(.ListIndex, 0) 
    'Colonne B: B1..... 
    Worksheets("feuil1").Range("E2") = .List(.ListIndex, 1) 
    'Colonne C: C1...... 
    Worksheets("feuil1").Range("F2") = .List(.ListIndex, 2) 
  End With 
End Sub 

Si vous utilisez un UserForm et si vous voulez toujours affichez dans des textbox, faites le savoir

Remplir des textbox à partir d'une listbox

1 réponse

Votre réponse

Discussions similaires

Newsletters