Récupérer valeur d'une cellule dans listbox multiselect

boulou14 · 14 Septembre 2016

Bonjour,
je fais un formulaire (qui fais de la "lecture" et "écriture") dans lequel j'ai des listbox en multiselect. Quand je suis en mode "écriture" je transfère facilement les choix vers une cellule Excel...là où ça se complique c'est que quand je suis en lecture, je n'arrive pas à récupérer les options sélectionnées dans la cellule pour les afficher dans ma listbox du userform...
Avez-vous déjà eu ce type de soucis ? et surtout quelqu'un a-t-il la solution ?
Merci d'avance.

PS: Si besoin j'essaierai de mettre un fichier anonymé

Paf · 14 Septembre 2016

Bonjour boulou14,

je fais un formulaire (qui fais de la "lecture" et "écriture") dans lequel j'ai des listbox en multiselect. Quand je suis en mode "écriture" je transfère facilement les choix vers une cellule Excel...là où ça se complique c'est que quand je suis en lecture, je n'arrive pas à récupérer les options sélectionnées dans la cellule pour les afficher dans ma listbox du userform...

Pas tout compris? Quelles options dans quelle cellule?

Un classeur exemple permettrait de savoir ce que vous tentez de faire et comment .

A+

boulou14 · 14 Septembre 2016

Bonjour Paf,
merci de me répondre
J'ai fais un petit fichier exemple de ce que j'aimerai faire, espérant que tu aura une solution à me proposer...
En tout cas, merci d'avance !

Paf · 14 Septembre 2016

Re,

Dans la Userform2, il faut "mettre à blanc" manuellement la propriété RowSource de la ListBox1.

Puis dans Private Sub UserForm_initialize(), insérer le code :
ListBox1.AddItem Range("C2") mais le résultat n'est sans doute pas celui espéré.

ou bien

ListBox1.List = Split(Range("C2"), vbCrLf)

A+

boulou14 · 15 Septembre 2016

Bonjour Paf,
merci de ta réponse mais ça ne fonctionne pas sur mon fichier, il faut savoir que dans le vrai fichier, j'effectue une recherche pour retrouver la valeur de la cellule...extrait ci-dessous (pour une textbox mais bon...)

lieu = ActiveCell.Value + 4
UserForm7.TextBox1.Value = Sheets("Suivi").Range("b" & lieu)

Voilà, si tu as une autre idée (ou quelqu'un d'autre) ...
@+

Paf · 15 Septembre 2016

Re,

Si le classeur joint n'est pas le reflet du classeur réel, il ne sert pas à grand chose.

les idées, ce n'est pas ce qui manque.... mais encore faut-il comprendre de quoi il s'agit :

dans le vrai fichier, j'effectue une recherche pour retrouver la valeur de la cellule.

Comment raccorder ça avec le souci initial et le classeur à disposition ?

A+

Récupérer valeur d'une cellule dans listbox multiselect

boulou14

XLDnaute Nouveau

Paf

XLDnaute Barbatruc

boulou14

XLDnaute Nouveau

Pièces jointes

Paf

XLDnaute Barbatruc

boulou14

XLDnaute Nouveau

Paf

XLDnaute Barbatruc

Discussions similaires