Récupérer resultats Multiple Listbox au rappel d'un Userform Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
N
Nico44044
Membre habitué
Membre habitué
Messages : 125
Inscrit le : 2 janvier 2017
Version d'Excel : Excel Mac 2011

Message par Nico44044 » 3 avril 2018, 12:58

Hello,

J'utilise un Userform avec une listbox à choix multiples.
J'insere ensuite le resultat des selections du listbox dans une cellule séparés par un retour chariot chr(10)

Si je rappel mon Userform, je voudrais que dans ma listbox soit en surbrillance les elements présent dans la cellule préalablement remplie...

En gros recupérer l'ancien choix pour une modification...

Si quelqu'un veux bien m'expliquer comment faire :-)

Merci bcp

Nico
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'030
Appréciations reçues : 351
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 4 avril 2018, 01:10

Bonjour Nico,

Voici un exemple, il faudra modifier ActiveCell par la cellule de ton choix Range("A1") ou autre.
ListBox ChoixMult (v2).xlsm
(19.48 Kio) Téléchargé 56 fois
Private Sub CommandButton1_Click()
 For i = 0 To Me.ListBox1.ListCount - 1
   If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & Chr(10)
 Next i
 ActiveCell = Trim(temp)  'à adapter
End Sub

Private Sub UserForm_Initialize()
Set Sh = Sheets("Feuil1")
With Me.ListBox1
.List = Range("plg").Value
.MultiSelect = fmMultiSelectMulti

    a = Split(ActiveCell, Chr(10))   'à adapter
    If UBound(a) >= 0 Then
      For i = 0 To Me.ListBox1.ListCount - 1
        If Not IsError(Application.Match(Me.ListBox1.List(i), a, 0)) Then Me.ListBox1.Selected(i) = True
      Next i
    End If

End With
End Sub

Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
N
Nico44044
Membre habitué
Membre habitué
Messages : 125
Inscrit le : 2 janvier 2017
Version d'Excel : Excel Mac 2011

Message par Nico44044 » 4 avril 2018, 13:07

Simple rapide et efficace, comme toujours :-)

Merci SabV !!!
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message