XL 2010 Pb vba affectation ville Cp

Staple1600

XLDnaute Barbatruc

• 30 Novembre 2019

• #2

Bonsoir le fil, herve62

herve62
En guise de pistes pour déblocage 😉

VB:

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

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 1 Décembre 2019

• #3

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 !!😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Décembre 2019

• #4

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 1 Décembre 2019

• #5

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 ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Décembre 2019

• #6

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 😉)

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 1 Décembre 2019

• #7

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Décembre 2019

• #8

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. 😉

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 1 Décembre 2019

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Décembre 2019

• #10

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 😉

 

Vote positif 0 Vote négatif