Bonjour à tous,
J'aimerai créer une fonction personnelle sans doute très simple capable de m'aider à trouver l'Agence Commerciale qui gère le département et ce en fonction d'un code postal.
Je m'explique: J'ai en Colonne A, une liste de code postal "normalement" à cinq chiffres. Je dois remonter en Colonne B, à l'aide de la formule "=agence()" l'Agence qui gère le département.
Je suis parti de ça :
Function agence(c As Range) As String
' Fonction personnelle permettant de remonter l'Agence en fonction du code postal".
Application.Volatile
Select Case Len(c)
Case Is < 4
codepostal = "Erreur!"
Case Is > 5
codepostal = "Erreur!"
Case 4
codepostal = "0" & c
Case 5
codepostal = c
End Select
End Function
Cette formule fonctionne correctement, mais elle ne me fait que contrôler les codes postaux.
Une âme charitable pour m'aider à trouver le code permettant de dire que les deux premiers caractères étant XX, alors l'Agence YY doit le gèrer?
Thk a lot,
Bonne fin de journée à tous.
J'aimerai créer une fonction personnelle sans doute très simple capable de m'aider à trouver l'Agence Commerciale qui gère le département et ce en fonction d'un code postal.
Je m'explique: J'ai en Colonne A, une liste de code postal "normalement" à cinq chiffres. Je dois remonter en Colonne B, à l'aide de la formule "=agence()" l'Agence qui gère le département.
Je suis parti de ça :
Function agence(c As Range) As String
' Fonction personnelle permettant de remonter l'Agence en fonction du code postal".
Application.Volatile
Select Case Len(c)
Case Is < 4
codepostal = "Erreur!"
Case Is > 5
codepostal = "Erreur!"
Case 4
codepostal = "0" & c
Case 5
codepostal = c
End Select
End Function
Cette formule fonctionne correctement, mais elle ne me fait que contrôler les codes postaux.
Une âme charitable pour m'aider à trouver le code permettant de dire que les deux premiers caractères étant XX, alors l'Agence YY doit le gèrer?
Thk a lot,
Bonne fin de journée à tous.