Option bouton

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

Bonjour,

C'est ton problème à part que tu patines ?

Sinon tu n'es pas obligé de tester les 2 :

If OptionButton1.Value = True Then
...
else
...
endif

Une case à cocher suffirait éventuellement.

eric

bonjour,

le code que j'avais fait fonctionne en fait le problème est tout autre.

si c'est une valeur numérique dans la listbox

la macro ne fonctionne pas.

le voilà le problème

peut être un problème de variable ?

je les ai pourtant mis en Variant , mais cela ne marche pas mieux ?

merci

Bonjour,

Essaie :

If cstr(Sheets("liste clients").Range("D" & s)) = ListBox2.Value Then

La prochaine fois joint un fichier de travail et détaille ton problème.

eric

merci Eric

tu as vu juste , c'est parfait!!

Rechercher des sujets similaires à "option bouton"