XL 2016 Distancier en VBA

marc S85 · 2 Février 2020

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 · 2 Février 2020

VB:

                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

st007 · 2 Février 2020

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 · 2 Février 2020

VB:

                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 · 2 Février 2020

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.

XL 2016 Distancier en VBA

marc S85

XLDnaute Nouveau

st007

st007

XLDnaute Barbatruc

st007

XLDnaute Barbatruc

marc S85

XLDnaute Nouveau

Discussions similaires