bonjour,
j'ai un soucis , je n'arrive pas a adapter mon code ci dessous
j'aimerais que ce bouton applique l'une ou l'autre macro si un de ces 2 options boutons est selectionné
le contenu listbox2 étant différent selon l'un des 2 options boutons cochés (ça j'ai réussi ...)
une fois de plus je patine , mon essai est infructueux
merci de votre aide
Private Sub CommandButton8_Click()
Dim s As Long
Dim Java1 As String
s = 1
If OptionButton1.Value = True Then
While Sheets("liste clients").Range("D" & s).Value <> ""
If Sheets("liste clients").Range("D" & s) = ListBox2.Value Then Java1 = "var Mark = new VEShape (VEShapeType.Pushpin, new VELatLong(" & Sheets("liste clients").Cells(s, 8).Value & "));" _
& "Mark.SetCustomIcon('pushpinc.gif');('" & Sheets("liste clients").Cells(s, 1).Value & "');" _
& "Mark.SetTitle('" & Sheets("liste clients").Cells(s, 2).Value & "');" _
& "Mark.SetDescription('" & Sheets("liste clients").Cells(s, 9).Value & "');" _
& "map.AddShape(Mark);"
EnvoiScript Java1
End If
s = s + 1
Wend
End If
If OptionButton2.Value = True Then
'Me.ListBox2.Clear
While Sheets("liste clients").Range("C" & s).Value <> ""
If Sheets("liste clients").Range("C" & s) = ListBox2.Value Then Java1 = "var Mark = new VEShape (VEShapeType.Pushpin, new VELatLong(" & Sheets("liste clients").Cells(s, 8).Value & "));" _
& "Mark.SetCustomIcon('pushpinc.gif');('" & Sheets("liste clients").Cells(s, 1).Value & "');" _
& "Mark.SetTitle('" & Sheets("liste clients").Cells(s, 2).Value & "');" _
& "Mark.SetDescription('" & Sheets("liste clients").Cells(s, 9).Value & "');" _
& "map.AddShape(Mark);"
EnvoiScript Java1
End If
s = s + 1
Wend
End If
End Sub