Remplir une listbox à partir d'une seule cellule

Bonsoir,

Tout est expliqué dans le titre ...
Je souhaiterai remplir ma listbox1 à partir de la cellule A1.
Donc dans ma cellule A1 des mots espacés par des sauts (toujours dans la même cellule)
Donc je souhaiterai récupérer chaque ligne de cette cellule pour les rajouter dans la listbox1. Jusqu'à présent j'ai essayé avec les fonctions Len, Right, Left, Insr, Mid ... aucun résultat ..

ps : je joints un fichier excel pour un échange plus clair.

Cordialement,
ric009

Bonjour,

vois du côté de Split et surtout regardes l'aide VBA et les articles DVP sur : Option Explicite ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit 'Indispensable !   Private Sub CommandButton1_Click() ' remplir la listbox1 Dim tboAlimList As Variant Dim I As Long   tboAlimList = Split(Range("A1").Value, vbLf) For I = 0 To UBound(tboAlimList) ListBox1.AddItem tboAlimList(I) Next I End Sub

---

cordialement,

Didier

Merci pour ta réponse Didier, ça fonctionne !
Mais maintenant j'aimerai bien comprendre ton code qui semble assez complexe ...

Cordialement,
ric009.

Edit : oups petit "problème" je viens de m'en rendre compte il y a une petite puce noir qui représente surement le saut de ligne, mais elle s'affiche dans la listbox à coté de chaque nom ... comment la faire disparaître ? j'ai essayé la fonction Right pour supprimer le premier élément de droite mais pas de résultat ...

Bonjour,

aider, c'est bien, mais pourquoi dois-je faire tout le boulot ?, je t'ai donné les pistes à suivre, un peu d'effort t'aurais mené via une recherche ici, entre autres :

http://silkyroad.developpez.com/VBA/...serForm/#LII-G

http://silkyroad.developpez.com/VBA/...racteres/#LI-I

+ aide VBA comme déjà signalé ;)

cordialement,

Didier

Bonjour,

Dans le même esprit :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click()   Dim Tbl   Tbl = Split(Range("A1"), Chr(10)) ListBox1.List = Tbl   End Sub

---

Hervé.

Re,

Et plus court encore :

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click()   ListBox1.List = Split(Range("A1"), Chr(10))   End Sub

---

Hervé.

merci pour votre aide cela fonctionne !

bonjour a tous
theze> tu es sur que

Code:

---

Tbl = Split(Range("A1"), Chr(10))

---

:calim2:
te donne le tableau et non pas le nombre d'elements???? ;)
au plaisir

Bonjour à toutes et tous,

Hello Patrick,

Citation:

---

theze> tu es sur que
Code :Sélectionner tout - Visualiser dans une fenêtre à part
Tbl = Split(Range("A1"), Chr(10))

te donne le tableau et non pas le nombre d'elements????

---

Oui j'en suis certain !!! ;o)

Hervé.