Remplir des textbox à partir d'une listbox
Fermé
Nobru
-
21 mars 2012 à 19:06
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 22 mars 2012 à 08:12
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 22 mars 2012 à 08:12
A voir également:
- Remplir des textbox à partir d'une listbox
- Organigramme a remplir word - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Recherche à partir d'une image - Guide
- Remplir et signer pdf - Guide
- Avatar facebook à partir de photo - Guide
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
Modifié par f894009 le 22/03/2012 à 08:16
Modifié par f894009 le 22/03/2012 à 08:16
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
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
