XL 2010 Pb vba affectation ville Cp

[herve62]

Bonsoir
je bloque sur le pb d'affectation ville / Cp et inverse
fichier joint à tester

 

[Staple1600]

Bonsoir le fil, herve62

herve62
En guise de pistes pour déblocage

Sub Pour_test()
Dim f As Worksheet, INSEE, t
Set f = Worksheets("CP")
t = Range(f.Cells(2, 1), f.Cells(Rows.Count, 4).End(3))
Randomize Asc("Staple") + 1600
INSEE = Application.RandBetween(1001, 1050)
On Error Resume Next
vCP = Application.VLookup(INSEE, t, 3, 0) ' CP
vLA = Application.VLookup(INSEE, t, 4, 0) ' libellé d'acheminement
MsgBox vCP & Chr(13) & vLA, vbInformation, "Test"
End Sub

 

[herve62]

Bonjour , salut JM
Merci , mais je pige pas le rôle de cette sub ?
Pour cette appli j'aimerai la mettre en icone bureau et au lancement j'aurai juste l'USF ( comme j'ai fait mon annuaire) mais il faudrait
que cela fonctionne dans les 2 sens !!

 

[Staple1600]

Bonjour le fil, herve62

herve62
Pourtant, le nom de la macro devrait éclairer ta lanterne, non ?
Tout comme la 3ième ligne de mon message

En guise de pistes

 

[herve62]

oui j'ai vu !! pour test ...j'ai testé mais bon ?le résultat ne m'inspire pas
je ne vois pas l'incorporation dans code INSEE ?

 

[Staple1600]

Re

Pourtant c'est une syntaxe possible pour remplir tes TextBox, non ?
(en adaptant quelque peu la chose)

Sinon, personnellement, je laisse Excel à sa simple vie de tableur
Et j'utilise ceci

Trouver un code postal ou une ville en France - La Poste

Retrouvez les codes postaux et les villes de France en utilisant l'outil de La Poste. Indiquez un code postal ou une ville et validez.

www.laposte.fr

(Et si besoin dans un webbrower sur userform )

 

[herve62]

Ok , mais l'été de avril à octobre nous sommes à notre M.H. en bord de mer et pas internet ... enfin pour le moment car j'essaye de pouvoir utiliser
le partage ce connexion via tel mobile pour l'an prochain
Je vais regarder cette semaine ou + tard pour adapter dans mon usf
Bonne soirée à toi , à la prochaine

 

[Staple1600]

Re

herve62
Si tu es dans ton mobilhome en bord de mer d'avril à octobre, profites du cadre et laisse ton PC dans sa sacoche.

 

[herve62]

On a l'habitude , je suis né là bas mais depuis longtemps maintenant on habite à 60kms , hormis la plage , la pétanque , mes fleurs , mon petit potager j'ai aussi besoin juste par nécessité d'utiliser Internet , et puis dans le 62 pas toujours beau temps .... enfin qu'y disent ! mais on a eu 40 quand même
Good night

 

[Staple1600]

Re

Non, on n'a pas besoin d'utiliser Internet.
C'est un besoin qui a été créé de toutes pièces, et on s'est laissé faire
Et maintenant, on nous mets le Black Friday à toutes les sauces et je sais que Nabila a eu un petiot.
Tu parles d'un besoin !
Mais je m'égare...
Je vais de ce pas allumer mon minitel, ça va me calmer