Conserver la sélection d'une listBox lors de sa réouverture

Bonjour le Forum,

Après avoir écumé les forums je me tourne vers vous pour quelque chose qui me parait simple mais finalement je ne trouve pas comment le faire.

J'ai un userform qui contient une listbox, je l'ouvre (clic droit), ma listBox s'initialise, je sélectionne mes items, je les récupère au commandbuttonclick, jusque là tout va bien.

Cependant je souhaiterais qu'à la prochaine ouverture de mon userform sur cette cellule les items repris dans ma cellule soit déjà sélectionnés, mais je n'y arrive pas.

Le but étant d'avoir une vue claire de ce qui est déjà dans ma cellule (et faire les modifications de sélection d'items)

Pouvez vous m'aider ?

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("C3:C300")) Is Nothing Then
UserFormAM.Show
End If
End Sub

Private Sub UserForm_Initialize()

Me.TextBoxNom.Value = ActiveCell.Offset(0, -2).Value

With UserFormAM.ListBoxDispos

        .AddItem "Lundi AM toutes les semaines"
        .AddItem "Lundi AM tous les 15 jours"
        .AddItem "Lundi PM toutes les semaines"
        .AddItem "Lundi PM tous les 15 jours"
        .AddItem "Mardi AM toutes les semaines"
        .AddItem "Mardi AM tous les 15 jours"
        .AddItem "Mardi PM toutes les semaines"
        .AddItem "Mardi PM tous les 15 jours"
        .AddItem "Mercredi AM toutes les semaines"
        .AddItem "Mercredi AM tous les 15 jours"
        .AddItem "Mercredi PM toutes les semaines"
        .AddItem "Mercredi PM tous les 15 jours"
        .AddItem "Jeudi AM toutes les semaines"
        .AddItem "Jeudi AM tous les 15 jours"
        .AddItem "Jeudi PM toutes les semaines"
        .AddItem "Jeudi PM tous les 15 jours"
        .AddItem "Vendredi AM toutes les semaines"
        .AddItem "Vendredi AM tous les 15 jours"
        .AddItem "Vendredi PM toutes les semaines"
        .AddItem "Vendredi PM tous les 15 jours"
        .AddItem "Samedi AM toutes les semaines"
        .AddItem "Samedi AM tous les 15 jours"
        .AddItem "Samedi PM toutes les semaines"
        .AddItem "Samedi PM tous les 15 jours"

End With
End Sub

Private Sub CommandButton1_Click()

        Dim ligne As Integer

For i = 0 To ListBoxDispos.ListCount - 1
    If ListBoxDispos.Selected(i) Then machaine = machaine & ListBoxDispos.List(i) & " " & vbLf
Next
machaine = Left(machaine, Len(machaine) - 1) ' pour supprimer le dernier vblf
ActiveCell.Offset(0, 0) = machaine

Unload UserFormAM

End Sub

Bonjour Lorence

Le voici, il s'agit de mon UserFormAM

Re,

Je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]

• ne postez JAMAIS de fichiers avec des informations personnelles ou confidentielles (cet utilitaire peut vous aider à les retirer).

A+