Créer une fonction convertir en code

Version imprimable

21/08/2010, 14h10
diltech

Créer une fonction convertir en code

Bonjour,

Voici, j'ai une liste de ville auquel il faut attribué un code de trois lettres d'appellation que l'on a déjà établi d'avance.

J'aimerais me servir d'une fonction puisque l'on a souvent à convertir le nom des ville en code par rapport à des listes d'horaire et avoir le choix de mettre la fonction un peu partout dans mon tableur. C'est pour cette raison qu'un fonction est plus approprié plutôt que de travaillé avec offset.

J'avais pensé de travailler avec CASE ... SELECT mais je ne vois pas trop comment m'y prendre pour remplacer ces noms de ville en code. J'ai 18 villes spécifique mais il arrive que je fais des changements.

Montréal > MTL
Paris > PRS
Dublin > DUB
etc...

Merci

une fonction non évolutive

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Function CodeVille(ByVal vil As String) As String
Dim TabVil, TabCod
Dim i As Integer
TabVil = Array("Montréal", "Paris", "Dublin")
TabCod = Array("MTL", "PRS", "DUB")
For i = LBound(TabVil) To UBound(TabVil)
    If UCase(vil) = UCase(TabVil(i)) Then
        CodeVille = TabCod(i)
        Exit For
    End If
Next i
End Function

Edit: Ou si on désire faire évoluer les choses
ajouter une feuille (ci dessous feuil4 pour l'exemple qu'on peut éventuellement cacher), en colonne A les villes et en colonne B la codification

Code:

1
2
3
4
5
6
Public Function CodeVille(ByVal vil As String) As String
Dim c As Range
Application.Volatile
Set c = Sheets("Feuil4").Range("A:A").Find(vil, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then CodeVille = c.Offset(0, 1).Value
End Function

22/08/2010, 02h53
diltech

C'est génial et merci encore je ne savais pas dutout comment m'y prendre.

Merci infiniment.