Charger un listbox avec les données contenues dans une seule cellule

[blord]

Bonjour à tous,

Supposons que dans une cellule j'ai une liste de données séparées par un symbole quelconque (virgule, tiret, point-virgule etc...) est-il possible de charger le listbox avec les données directement à partir de la cellule ?

Par exemple, si dans ma cellule j'ai :
Projet 1,Projet 2,Projet 3,Projet 4,Projet 5

J'aimerais avoir dans mon listbox :
Projet 1
Projet 2
Projet 3
Projet 4
Projet 5

Est-ce possible ?

Il est certain que je pourrais envoyer le contenu de ma cellule dans une feuille "tampon" de séparer les données, de les transposer etc... Mais je me demandais si une méthode plus directe existait...

Merci pour votre aide !

Benoit Lord

 

[Dranreb]

Re : Charger un listbox avec les données contenues dans une seule cellule

Bonjour.
Utilisez la fonction Split(Chaîne, Séparateur)
Elle met en tableau de String les éléments de la liste.
Il ne reste qu'à la pacourir jusqu'à l'Ubound à partir de 0 comme pour les lignes Add-ées de ListBox.
À+

 

[blord]

Re : Charger un listbox avec les données contenues dans une seule cellule

Bonjour,

Merci pour l'information, je ne connais pas cette fonction je vais donc faire des recherches sur le sujet....

Bonne fin de journée !

Benoit Lord

 

[Pierrot93]

Re : Charger un listbox avec les données contenues dans une seule cellule

Bonjour,

regarde ceci, à utiliser dans un module d'usf :

Option Explicit
Private Sub UserForm_Initialize()
Me.ListBox1.List = Split(Range("A1").Value, ",")
End Sub

bonne journée
@+

 

[blord]

Re : Charger un listbox avec les données contenues dans une seule cellule

Bonjour Pierrot93, le Forum,

Merci beaucoup pour ton intervention, ça fonctionne parfaitement !

Benoit Lord