listbox

bonjour ,

comment peut on intégrer ma listbox au code ci dessous ?

si quelqu'un a une idée ce serais très sympa

If UserForm1.ListBox1.Selected(i) = True Then ' si sélectionné
'Sheets(ListBox1.List(i)).
Java1 = "var Mark = new VEShape (VEShapeType.Pushpin, new VELatLong(" & Sheets("ongletListeCommunes").Cells(s, 6).Value & "));" _
.List(.ListIndex, 1) & "));"& "Mark.SetCustomIcon('pushpinb.gif');('" & Sheets("essai").Cells(s, 1).Value & "');" _
& "Mark.SetDescription('" & Sheets("essai").Cells(s, 7).Value & "');" _
& "map.AddShape(Mark);"

EnvoiScript Java1

s = s + 1

cordialement