Remplir les zones de liste par sélection de cellules

[Pegase]

Bonsoir à tous,

J'ai un userform dans lequel il y a 2 zones de liste (ListBox1 et ListBox2). Je souhaiterais remplir ces ListBox en faisant la manip suivante:
1) Placer le curseur dans une des 2 LisBox
2) Sélectionner une cellule de la feuille excel > Le contenu de la cellule s'inscrit dans le champ de la ListBox
3) Recommencer le même process avec la 2ième ListBox

Je ne sais vraiment pas comment faire car dès qu'un UserForm est affiché on a plus accès aux cellules de la feuille excel.

Alors si quelqu'un a une idée, c'est un merci de ma part !

Pégase

 

[ODVJ]

Re : Remplir les zones de liste par sélection de cellules

bonsoir,

pour accéder à ta feuille de calcul en laissant ton userform ouvert, positionne la prorpiété showmodal du userform à False.

A+

 

[Moa]

Re : Remplir les zones de liste par sélection de cellules

Salut Pegase !

Et pour remplir ton textbox, tu peux faire avec un double-clic tel que :

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = ActiveCell.Value
End Sub

@ +++

ChrisOne

 

[Pegase]

Re : Remplir les zones de liste par sélection de cellules

Ok et merci beaucoup je vais essayer cela demain.
Bonne nuit à tous

Pégase

 

[Pegase]

Re : Remplir les zones de liste par sélection de cellules

Bonsoir,
Sa fonctionne d'une manière impeccable et merci à Moa pour son idée du double click. C'est un plus efficace

Merci encore
Pégase