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

[ Résolu ] Extraire des chiffres dans une ligne avec une texte

  • Initiateur de la discussion Initiateur de la discussion vince2k
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

vince2k

XLDnaute Nouveau
Bonjour à tous,

Je recherche une formule permettant d'extraire des chiffres dans une ligne de texte.

J'ai en fait une colonne "A" avec une multitude d'adresse adresse du type "5 rue des arcs 84500 Bollene".
J'aimerais retrouver dans la colonne "B" le code postal "84500".

Quelqu'un a t-il une solution svp ?

En vous remerciant d'avance
 
Dernière édition:
Re : Extraire des chiffres dans une ligne avec une texte

Bonjour à tous,


Fonctionne parfaitement et il suffit d'appliquer le format personnalisé Code Postal.
Bravo.

A + à tous
 
Re : Extraire des chiffres dans une ligne avec une texte

Bonjour à tous, à JCGL 🙂 ,

Une formule matricielle qui (si j'ai bien compté) a au plus 7 niveaux d'imbrication et donc devrait fonctionner en 2003 et conserver le 0 des codes postaux des départements de numéro 01 à 09.

Code:
=REPT("0";5-NBCAR(MAX(SI(ESTNUM(0+STXT(A2;LIGNE($1:$100)-5;5));0+STXT(A2;LIGNE($1:$100)-5;5);""))))&MAX(SI(ESTNUM(0+STXT(A2;LIGNE($1:$100)-5;5));0+STXT(A2;LIGNE($1:$100)-5;5);""))
NB: si l'adresse est susceptible de comprendre plus de 100 caractères, remplacer 100 par une valeur supérieure dans la formule.


de JCGL:
il suffit d'appliquer le format personnalisé Code Postal
J'oublie souvent l'emploi des formats qui ne sont pas des formats basiques 😡
 

Pièces jointes

Dernière édition:
Re : Extraire des chiffres dans une ligne avec une texte

Bonsour® à tous

allez pourquoi pas y ajouter ma patte😎

une fonction personnalisée :

Code:
Function ExtractCP(target As Range) As String
    Dim Pos As Integer
    ExtractCP = "Non trouvé"
    For Pos = 1 To Len(target)
        If Mid(target, Pos, 5) Like "#####" Then
            ExtractCP = Mid(target, Pos, 5)
            Exit For
        End If
    Next
End Function
utilisation :
=EXTRACTCP(RefCellule)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

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