Listebox multiselect sélectionne 1er élément

[MJ13]

Bonjour,

Voici un userform avec 2 listbox multiselect.
Je voudrais que lorsque je clique sur un élément de la seconde listbox, que je n'ai pas à double-cliquer pour séléctionner le premier élément que je veux choisir.
Est-ce réalisable?
je peux aussi mettre un espace sur le premier élément de la liste.

 

[Catrice]

Re : Listebox multiselect sélectionne 1er élément

Bonjour,

Je reproduis le probléme.
Chez moi, ca se produit une fois sur 2.
Je n'ai pas tres bien compris pourquoi, mais ci-joint un palliatif

 

[MJ13]

Re : Listebox multiselect sélectionne 1er élément

Re bonjour,

J'ai trouvé:
Il suffit de rajouter (en rouge)

Private Sub UserForm_Initialize()
derlignel1 = ActiveSheet.Range("a65536").End(xlUp).Row
ListBox1.RowSource = "liste!a2:a" & derlignel1
derlignel2 = ActiveSheet.Range("a65536").End(xlUp).Row
ListBox2.RowSource = "liste!a2:a" & derlignel2
ListBox1.SetFocus
ListBox2.SetFocus
End Sub

EN fait c'est grâce à mon application Compte MJ 2007 où je l'avais déjà utilisé en débutant dans les Userforms (mais il ya près d'un an).

 

[MJ13]

Re : Listebox multiselect sélectionne 1er élément

Bonjour Catrice et merci

C'est aussi une solution sympas que je vais garder au cas où.