Adapter un code VBA à mon projet

Bonjour à tous.

J'ai un code VBA que j'ai trouvé sur le site http://boisgontierjacques.free.fr (que je remercie de mettre a disposition d'ailleurs).

Qui est celui ci: cf la capture d'écran en fichier joint.

Dim f

Private Sub UserForm_Initialize()

Set f = Sheets("stype")

Set MonDico = CreateObject("Scripting.Dictionary")

For Each c In Range(f.[A2], f.[A65000].End(xlUp))

If c.Value <> "" Then MonDico.Item(c.Value) = c.Value

Next c

Me.ListBoxType.List = MonDico.items

End Sub

Private Sub ListBoxType_Change()

Me.ListBoxSType.Clear

For i = 0 To Me.ListBoxType.ListCount - 1

If Me.ListBoxType.Selected(i) = True Then

For Each c In Range(f.[A2], f.[A65000].End(xlUp))

If c = Me.ListBoxType.List(i) Then Me.ListBoxSType.AddItem c.Offset(, 1)

Next c

End If

Next i

End Sub

Il s'agit d'une sélection multiple dans une listbox.

Ce que je veux faire dans mon fichier, c'est que lorsque que j'ouvre cette sélection multiple (qui se sert de ma base de donnée), en sélectionnant donc ce que je veux dedans, il y est une copie de ce que j'ai sélectionné dans une cellule.

Est ce quelqu'un pourrait donc me décrire la démarche pour adapter ce code VBA à mon fichier ?

Merci d'avance pour le temps passer sur mon problème

Bonjour,

merci de joindre ton fichier excel à ta demande.