L
Le Débutant en VBA
Guest
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
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