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