Itinéraire

[batistuta]

Bonjour,
Je possède une macro qui calcule la distance en kilomètre entre deux liste de codes postaux (ou de villes dans la même feuille).
je veux faire quelques modifications dessus pour pouvoir afficher la distance entre tous les codes postaux de la liste(feuille1/colonne A) et le code postal affiché sur lafeuille 3 case B2.
L'affichage des distance sera sur la feuille1 colonne B .
Merci d'avance pour votre aide.

 

[chris]

Re : Itinéraire

Bonjour

Si j'ai bien compris

 

[batistuta]

Re : Itinéraire

Parfait.
Merci bocoup.

 

[batistuta]

Re : Itinéraire

bonjour chris,
ton code marceh sur la premiere coleonne,
par contre kon je veu traiter une liste de code postaux sur la colonne H , j'ai une liste de n'importe quoi qui mes sort de partout.
en fait , maliste des codes postaux est sur la colonne H de la feuille et l'affichage de la distance se fera sur la colonne i.
Merci mon ami.

 

[chris]

Re : Itinéraire

Bonjour

Changer la 1ère ligne

For Each X In Sheets("Feuil1").Range("A2:" & Sheets("Feuil1").Range("A65536").End(xlUp).Address)

par

For Each X In Sheets("Feuil1").Range("H2:" & Sheets("Feuil1").Range("H65536").End(xlUp).Address)

 

[batistuta]

Slt,
J'ai déja essayé cette modification ...regardez ce que ça m'a donné comme affichage...
Je vous ai envoyé le fichié modifié en pièce jointe.
Je sais qu'il n'ya pas grande chose à modifier , mais je n'arrive pas à trouver.
Merci .

 

[youky(BJ)]

Re : Itinéraire

Bonjour batistuta,
je n'ai pas regardé le pb de prés mais je voulais t'avertir que chaque recherche garde un lien que tu retrouves en menu>formule>>>>gestionnaire de noms.
pour les supprimer voici une petite routine à mettre dans module1 et à la fin de ta macro tu mets
'ta macro et
suppliengooglemaps

tu peux verifier sur ton fichier il y a des liens
Bruno

Sub suppliengooglemaps()
 Dim N As Name
 With ThisWorkbook
 For Each N In .Names
' MsgBox Left(N.Name, 4)
 If Left(N.Name, 3) = "Tem" Then N.Delete
 Next
 End With
 End Sub

 

[batistuta]

Re : Itinéraire

je sai kil ne fo pa grande chose....pour rectifié mon affichage.
Aidez-moi svp.
Merci

 

[batistuta]

Re : Itinéraire

Merci bocou lé ga,
c bon sa marche.