Remplir des textbox à partir d'une listbox
Fermé
Nobru
-
21 mars 2012 à 19:06
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 - 22 mars 2012 à 08:12
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 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
- Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? - Forum Graphisme
1 réponse
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
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