Discussion :

[diltech]

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

[mercatog]

une fonction non évolutive

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[diltech]

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

Merci infiniment.