Listbox

bonjour ,

je plante sur le fait de lier une listbox1 au code ci dessous

mes valeurs son renseigné dans celle ci

au lieu de prendre les valeur dans la feuille onglet prendre la valeur selectionné dans la list box

Java1 = "var Mark = new VEShape (VEShapeType.Pushpin, new VELatLong(" & Sheets("ongletListeCommunes").Cells(s, 6).Value & "));" _

& "Mark.SetCustomIcon('pushpinb.gif');('" & Sheets("ongletListeCommunes").Cells(s, 1).Value & "');" _

& "Mark.SetDescription('" & Sheets("ongletListeCommunes").Cells(s, 7).Value & "');" _

& "map.AddShape(Mark);"

EnvoiScript Java1

si quelqu'un a une idée

codialement

Bonjour

Sans conviction (une piste à explorer ?)

A toi d'adapter les numéros des colonnes

  With Me.ListBox1
    Java1 = "var Mark = new VEShape (VEShapeType.Pushpin, new VELatLong(" & _
            .List(.ListIndex, 1) & "));" & "Mark.SetCustomIcon('pushpinb.gif');('" & _
            .List(.ListIndex, 0) & "');" & "Mark.SetDescription('" & _
            .List(.ListIndex, 2) & "');" & "map.AddShape(Mark);"
  End With

  EnvoiScript Java1

bonsoir, pas moyen , cela ne prend pas

je m'y casse les dents, si quelqu'un a une idée elle sera bien venu

merci pour l'aide en tout cas

cordialement