Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Texte CodPos2(x)

mapomme

XLDnaute Barbatruc
Supporter XLD
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.

VB:
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
 
Dernière édition:

David Aubert

XLDnaute Barbatruc
Administrateur
Modérateur
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…