Salut Vince.
Merci à toi de te pencher sur mon problème.
Après bien des recherches j'ai trouvé ceci :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Public Sub LitListeInterprete()
Dim tmpContenu As String
Dim Lignes As String()
Dim Incr As Integer
Dim items As Object
Dim cells As String
'Récupère le tableau dans les settings
tmpContenu = My.Settings.ListeDesInterpretes
'Divise la String en autant de lignes qu'il y en a (séparées par les VbLf)
Lignes = Split(tmpContenu, vbLf)
'Supprime la dernière ligne qui est forcément vide
ReDim Items(Lignes.GetUpperBound(0) - 1) '-1 car il y a une ligne vide en trop dans le fichier
'Ajoute chaque ligne dans le tableau de données
For Incr = 0 To Lignes.GetUpperBound(0) - 1
cells = Lignes(Incr)
'Ajoute la ligne à la liste des lignes à ajouter
items(Incr) = cells
Next
'Ajoute l'ensemble des lignes à la listBox
Soiree.LbInterpreteEnreg.Items.AddRange(Items)
End Sub |
A priori cela fonctionne.
J'ai testé ta solution car moins de lignes de codes mais j'ai une erreure qui stipule que
Redim Preserve Lignes(Lignes.lenght -1)
n'est pas un membre de arrway.
@+ Martipit
Partager