[VBA-E]2 colonnes dans listbox

**Kaiba** · 22/02/2007, 12h19

Bonjour ,

Encore un ptit probleme pour moi :

Dans un userform , j'ai une combobox plus une listbox . La listbox se remplie selon la combobox en allant chercher les fichiers qui sont dans le repertoire définie dans cette même combobox . Donc par exemple si j'ai Bateau dans ma combobox , la listbox affiche les fichiers du repertoire Rep/Bateau et ainsi de suite.

Ma question :

J'aimerais que cette listbox ai plusieurs colonnes avec comme infos :
- le nom du fichier en question
- la date de derniere modification
- le type de fichier ( son extension )
- et d'autre colonnes que je pourrais rajouter au fur et a mesure

J'ai effectuer plusieurs recherches et plusieurs essais sans arriver a ce que je voulais

Merci de votre aide

Cordialement

Invité · 22/02/2007, 12h31

Bonjour

Pour que ta listbox est plusieurs colonnes, tu vas dans les prorpriétés de celle-ci, et tu auras les éléments suivants :

- ColumnCount : où tu mettras le nombre de colonnes
- ColumnWidths : où tu mettras la taille de chaque colonne.

Si tu remplis ta listbox par Additem, pour mettre dans les autres colonnes il faut utiliser la méthode : list

J'espère que toutes ces indications pourrons t'aider.

Starec

**Kaiba** · 22/02/2007, 14h31

Je crois que je dois être trop mauvais mais j'y arrive pas

Voici le code du bouton pour lister les fichiers dans la listbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CommandButton4_Click()
Dim Fs As FileSearch
Dim Dossier As String
Dim I As Integer
On Error Resume Next
 
ListBox1.Clear
 
Set Fs = Application.FileSearch
Dossier = "C:\Blabla\" & ComboBox1
With Fs
.NewSearch
.Filename = "*.*"
.LookIn = Dossier
.SearchSubFolders = False
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For I = 1 To .Count
Me.ListBox1.AddItem Dir(.Item(I))
Next I
End With
Else
MsgBox "Aucun classeur trouvés " & _
"dans le dossier '" & Dossier & "'."
Me.ListBox1.AddItem "Aucun classeur !"
End If
End With
Set Fs = Nothing
End Sub