XL 2013 Extraire une partie d'une cellule sur Excel

Ariella

XLDnaute Nouveau
Bonjour,
Je souhaite sur Exce recuper le code postal et la ville depuis une cellule qui contient nom prenom code postal et ville.
Mais chaque cellule a un nombre de caractère diffèrent.

Merci pour votre aide.
Je mets un fichier joins pour mieux expliquer le souci.

Merci bcp
 

Pièces jointes

  • Extraire Code postale et ville.xlsx
    9.6 KB · Affichages: 5
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Ariella,
Un autre ex avec une fonction perso.
La syntaxe est =CP(Chaine;Type) avec Type=1 pour le code postal, =2 pour la ville.
VB:
Function CP(Chaine, Choix)
tablo = Split(Chaine, " ")
For i = UBound(tablo) To 1 Step -1
    If IsNumeric(tablo(i)) Then
        If Choix = 1 Then
            CP = Val(tablo(i))
            Exit Function
        End If
        If Choix = 2 Then
            For j = i + 1 To UBound(tablo)
                CP = CP & tablo(j) & " "
            Next j
            Exit Function
        End If
    End If
Next i
End Function
 

Pièces jointes

  • Extraire Code postale et ville.xlsm
    16.2 KB · Affichages: 6

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof