Texte CodPos2(x)

[mapomme]

Bonjour,

Fonction pour extraire le Département d'un code postal (français) : =CodPos2(x)
Fonction pour extraire les trois derniers caractères d'un code postal: =CodPos3(x)
où x est soit un nombre soit du texte. Les codes postaux à 4 caractères sont admis.

Function CodPos2(ByVal x)
  CodPos2 = Left(IIf(Len(x) = 4, "0", "") & x, 2)
End Function

Function CodPos3(ByVal x)
   CodPos3 = Right(x, 3)
End Function

 

[David Aubert]

Bonjour,
Merci beaucoup mapomme pour le partage de tes fonctions.
Pour garder une certaine lisibilité dans le forum, j'ai nommé tous tes fils en mettant uniquement le nom de la fonction en titre.
Je vais rajouter des préfixes pour catégoriser les fonctions (dans la journée)
Bonne journée
David