VBA :saisie d'un code postal= ville correspondante

[Le Débutant en VBA]

Bonjour, je débute en VBA et je souhaiterais écrire une procédure permettant d'afficher automatiquent le nom de la ville en B5, après avoir saisi le code postal en A5.

ex : Cellule A5-->35000 / Cellule B5 (via procédure VBA) --> Rennes
ex : Cellule A5-->22000 / Cellule B5 (via procédure VBA) --> St Brieuc

Je suis sur que cela ne doit pas être compliqué, mais il y a des erreurs !

----------------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim CP As String
Dim Ville As String
Set CelluleA5 = Range("A5").Value

If Target = Range("A5") Then
Select Case CelluleA5
Case "35000"
Ville = Rennes
Case "22000"
Ville = SaintBrieuc
Case "56000"
Ville = Vannes
End Select
Range("B5").Value = Ville
End If

End Sub
----------------------------------------------------------------------------------------

Pièce jointe : fichier excel étant la base de mon travail

MERCI BEAUCOUP

 

[Eric C]

Bonjour le forum
Bonjour Le débutant en VBA


Un petit tour ici où notre ami Gérard (coucou au passage) a laissé un fichier qui fait ce que tu demande <http://www.excel-downloads.com/html/French/forum/messages/1_124646_124646.htm>
et même plus si besoin est ...;

Bon dimanche à toutes & à tous

@++ Eric C

 

[Le Débutant en VBA]

Rebonjour, et Merci,
mais je ne suis pas tout à fait satisfait !!!!

les correspondances code postaux --> ville ne sont pas contenues dans le code VBA et mais dans une feuille de calcul

Dans mon cas, je préfèrais le faire à l'aide de l'outil VBA, pour lequel je dois m'autoformer à travers de petites "exercices en VBA" et là je bloque sur ce travail (de base à mes yeux)

Merci de m'aider !!!

 

[Gérard DEZAMIS]

Bonjour D.E.V, Salut Eric_C

On ne peut contenter tout le monde ...

Il va falloir se mettre au boulot .... un dimanche !

Je profite du Post pour te renvoyer un Coucou

@+
GD

 

[Gérard DEZAMIS]

Salut à tous

A table ! Essaye 77000 !

@+
GD

 

[Le Débutant en VBA]

Merci, finalement en utilisant un si c'était pas compliqué du tout,
Et moi qui perseverait dans un "selon" qui ne marchait pas !

Merci !!!