Discussion :

[Joffrey91]

Bonjour,
J'ai un problème pour écrire dans ma ListBox à partir de ma FileListBox. En effet, une fois l'écriture faite, je me suis aperçu que chaque élément de la FileListBox est écrit deux fois dans ma ListBox, je ne sais pas quoi faire pour arranger ça !

voici mon code :

Code :

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

1
2
3
4
5
Dim i As Long
For i = 0 To File1.ListCount - 1
File1.ListIndex = i
List1.AddItem File1.FileName
Next i

Merci de votre aide !
A bientot !

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
8
Dim i As Long
List1.Clear '<==== Nettoyage
For i = 0 To File1.ListCount - 1
'File1.ListIndex = i
'List1.AddItem File1.FileName
List1.AddItem File1.List(i) '<==== plus rapide
Next i
MsgBox "Nbrdans File1: " & File1.ListCount & vbCrLf & "Nbr dans List1: " & List1.ListCount

[Joffrey91]

Merci beaucoup, ça marche à merveille ! Cependant dans mon cas je n'avais pas besoin du List1.clear et de la MsgBox!
Merci à bientôt !