Discussion :

[ric009]

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

[Didier Gonard]

Bonjour,

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

Code :

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

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

[ric009]

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 ...

[Didier Gonard]

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

[Theze]

Bonjour,

Dans le même esprit :

Code :

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

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é.

[Theze]

Re,

Et plus court encore :

Code :

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

1
2
3
4
5
6
 
Private Sub CommandButton1_Click()
 
    ListBox1.List = Split(Range("A1"), Chr(10))
 
End Sub

Hervé.

[ric009]

merci pour votre aide cela fonctionne !

[patricktoulon]

bonjour a tous
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????
au plaisir

[Theze]

Bonjour à toutes et tous,

Hello Patrick,

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é.