Variable

bonjour,

j'ai un code ci dessous qui fonctionne mais j'aimerais l'améliorer , je voudrais en une seul variable avoir les coordonnées gps de la colonne H.

la faiblesse du code ci dessous en plus de multiplier les lignes d'écriture est que si il manque une valeur le script plante.

une aide serait bien venue

merci encore

Dim Javaessai As String

Javaessai = "var a0 = new VELatLong(49.483333, 1.733333);" _
 & "var a1 = new VELatLong(" & Sheets("Feuil2").Range("h1").Value & ");" _
 & "var a2 = new VELatLong(" & Sheets("Feuil2").Range("h2").Value & ");" _
 & "var a3 = new VELatLong(" & Sheets("Feuil2").Range("h3").Value & ");" _
 & "var a4=  new VELatLong(" & Sheets("Feuil2").Range("h4").Value & ");" _
  & "var options = new VERouteOptions();" _
  & "options.DrawRoute = true;" _
  & "map.GetDirections([a0 , a1, a2, a3, a4],options);"

                EnvoiScript Javaessai

Bonjour,

en clair sans décodeur, quelle est la problématique ?! (En dehors du nom de la variable …)

bonjour ,

eh bien dans l'exemple si j'ai des valeurs de H1 a H3 le code fonctionnera et si par exemple il n'y a pas de valeur en H2 le script plantera.

il faudrait que le code n'envoi pas la variable en question si la cellule est vide.

j'espère être clair

ps il y avait effectivement un mauvais nom de variable lorsque j'ai pris l'exemple (je rectifie ).

cdt

Donc en clair si une cellule - et non pas une variable - est vide, ne rien faire ?

re bonjour

oui si la cellule par exemple h3 est vide ne pas envoyer le scrip de la variable en question

par exemple ici ne pas envoyer a3

& "map.GetDirections([a0 , a1, a2, a3, a4],options);"

merci

cdt

Ne rien envoyer du tout ou quelque chose quand même ? Avec un exemple concret …

bonjour,

ci dessous le code de base pour envoyer un itineraire a bing maps via Javasript

si une de ces cellules est vide exemple H3 le code plante

Dim Javaessai As String

Javaessai = "var a0 = new VELatLong(49.483333, 1.733333);" _
 & "var a1 = new VELatLong(" & Sheets("Feuil2").Range("h1").Value & ");" _
 & "var a2 = new VELatLong(" & Sheets("Feuil2").Range("h2").Value & ");" _
 & "var a3 = new VELatLong(" & Sheets("Feuil2").Range("h3").Value & ");" _
 & "var a4=  new VELatLong(" & Sheets("Feuil2").Range("h4").Value & ");" _
  & "var options = new VERouteOptions();" _
  & "options.DrawRoute = true;" _
  & "map.GetDirections([a0 , a1, a2, a3, a4],options);"

                EnvoiScript Javaessai

le résultat souhaité est ci dessous si H3 est vide (donc ne pas envoyé la vriable en question par Javascrip )

Dim Javaessai As String

Javaessai = "var a0 = new VELatLong(49.483333, 1.733333);" _
 & "var a1 = new VELatLong(" & Sheets("Feuil2").Range("h1").Value & ");" _
 & "var a2 = new VELatLong(" & Sheets("Feuil2").Range("h2").Value & ");" _
 & "var a4=  new VELatLong(" & Sheets("Feuil2").Range("h4").Value & ");" _
  & "var options = new VERouteOptions();" _
  & "options.DrawRoute = true;" _
  & "map.GetDirections([a0 , a1, a2, a4],options);"

                EnvoiScript Javaessai

cdt

J$ = "var a0 = new VELatLong(49.483333, 1.733333);"

For R& = 1 To 4
    With Feuil2.Cells(R, 8)
        If .Value > "" Then
            A$ = A$ & ", a" & R
             J = J & "var a" & R & " = new VELatLong(" & .Value & ");"
        End If
    End With
Next

J = J & "var options = new VERouteOptions();options.DrawRoute = true;map.GetDirections([a0" _
      & A & "],options);"

Debug.Print J
EnvoiScript J

c'est nickel , un grand merci pour ton aide

La ligne Debug.Print J n'a d'utilité que pendant la phase de développement …