XL 2016 Distancier en VBA

[marc S85]

Bonjour à tous,

J'ai besoin de votre aide, je souhaite faire un distancier
Colonne A = code postal et ville
Ligne = code postal et ville

la récupération du Km marche bien, mais ma condition if qui compare colonne et ligne ne vois pas l'égalité des valeurs.

Si la valeur de la colonne ville de gauche est égale a la ligne ville du haut alors ne pas faire de demande de Km.

Mais cela ne fonctionne pas ?

Je vous remercie par avance de votre aide.

Marc

 

[st007]

Bonjour,
le site source ne renvoie pas les mêmes valeurs à l'aller et au retour, elles ne sont forcément pas identiques.
de plus, le site ne renvoie aucune valeur. impossible donc de spliter les donnees du site

 

[st007]

                ActiveSheet.Cells(x, i).Value = Split(Split(Split(Txt, "id=""distanciaRuta"">")(1), "</strong>")(0), " ")(0)
           On Error Resume Next
          
           End If
            Next i

Next x
MsgBox "fin"

on error resume next, te permet de contourner le problème

 

[marc S85]

Je viens de voir le votre réponse, qui permet de contourner le problème et qui fonctionne parfaitement.

Je vais contrôlé l'ensemble des valeurs de retour.

Cela fait vraiment plaisir d'avoir une réponse cela fait des heures que je recherche.

Franchement un grand merci st007. Je ne savais plus quoi faire.

Merci de répondre un dimanche.

Marc.