Extraire contenu listbox dans une colonne
Résolu
sormick
-
sormick -
sormick -
Bonjour,
Comment peut t'on extraire tout le contenu d'une listbox dans une colonne Excel puis plus tard alimenter cette listbox avec cette colonne?
Comment peut t'on extraire tout le contenu d'une listbox dans une colonne Excel puis plus tard alimenter cette listbox avec cette colonne?
A voir également:
- Extraire contenu listbox dans une colonne
- Déplacer une colonne excel - Guide
- Extraire une video youtube - Guide
- Extraire le son d'une vidéo - Guide
- Trier une colonne excel - Guide
- Colonne word - Guide
2 réponses
Bonjour,
tu auras toutes tes réponses sur ce site en regardant ListBox
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-G
tu auras toutes tes réponses sur ce site en regardant ListBox
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-G
Bonjour vous deux,
Si ce n'est pas déjà fait, je vous présente mes meilleurs voeux pour 2015.
En complément de la réponse du Pivert, voici quelques exemples d'import, d'export et d'ajout dans une ListBox :
Si ce n'est pas déjà fait, je vous présente mes meilleurs voeux pour 2015.
En complément de la réponse du Pivert, voici quelques exemples d'import, d'export et d'ajout dans une ListBox :
Option Explicit
'Importe de la feuille (A1:Axxx) dans la listbox
Private Sub Bouton_Import_De_Feuil_A_ListBox_Click()
ListBox1.List = Range("A1:A" & Columns(1).Cells.Find("*", , , , xlByColumns, xlPrevious).Row).Value
End Sub
'ajoute la valeur du textbox1 en premiere position dans la listbox
Private Sub Bouton_Ajout_ListBox_First_Click()
If TextBox1 <> "" Then ListBox1.AddItem TextBox1, 0
End Sub
'ajoute, à la listbox, la valeur du textbox1 et trie
Private Sub Bouton_Ajout_ListBox_Et_Tri_Click()
If TextBox1 <> "" Then ListBox1.AddItem TextBox1
ListBox1.List = Tri(ListBox1.List)
End Sub
Function Tri(List) 'Tri
'source : http://www.gcexcel.com/trier-les-elements-dans-un-listbox/
Dim Elem
With CreateObject("System.Collections.ArrayList")
For Each Elem In List
.Add Elem
Next
.Sort
Tri = .ToArray
End With
End Function
'ajoute la valeur du textbox1 en dernière position dans la listbox
Private Sub Bouton_Ajout_ListBox_Last_Click()
If TextBox1 <> "" Then ListBox1.AddItem TextBox1
End Sub
'Exporte de la listbox dans la feuille (de A1 à Axxx)
Private Sub Bouton_Export_De_ListBox_A_Feuil_Click()
Range("A1:A" & ListBox1.ListCount) = ListBox1.List
End Sub