XL 2010 Extraire un chiffre d'une adresse

A

Astragor

XLDnaute Nouveau

• 22 Mai 2019

• #2

Hello voila une petite fonction personalisée qui devrait te dépanner :

VB:

Function CHERCHENOMBRE(Cellule As Range)
    Dim X As Integer
    Dim Debut As Integer
    Dim Fin As Integer
    For X = Len(Cellule) To 1 Step -1
        If IsNumeric(Mid(Cellule, X, 1)) Then Debut = X
    Next X
    For X = 1 To Len(Cellule)
        If IsNumeric(Mid(Cellule, X, 1)) Then Fin = X
    Next X
    CHERCHENOMBRE = Mid(Cellule, Debut, Fin - Debut + 1)
End Function

En B1 tu écris =CHERCHENOMBRE(A1) et tu recopie sur le reste du tableau

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 22 Mai 2019

• #3

Bonjour.

Peut-être une matricielle (à valider avec Ctrl+Maj+Entrée) :

Code:

=SIERREUR(STXT(A1;EQUIV(VRAI;ESTNUM(1*STXT(A1;LIGNE($1:$20);1));0);NB(1*STXT(A1;LIGNE($1:$20);1)));"")

 

Vote positif 0 Vote négatif

U

Ultravga

XLDnaute Nouveau

• 22 Mai 2019

• #4

Merci j'ai eu l'erreur suivant #nom?

 

Vote positif 0 Vote négatif

U

Ultravga

XLDnaute Nouveau

• 22 Mai 2019

• #5

Victor21 à dit:

Bonjour.

Peut-être une matricielle (à valider avec Ctrl+Maj+Entrée) :

Code:

=SIERREUR(STXT(A1;EQUIV(VRAI;ESTNUM(1*STXT(A1;LIGNE($1:$20);1));0);NB(1*STXT(A1;LIGNE($1:$20);1)));"")

Cliquez pour agrandir...

Merci...J'ai appliqué la formule elle renvoie rien , la cellule reste vide

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 22 Mai 2019

• #6

Re,

Ultravga à dit:

Merci...J'ai appliqué la formule elle renvoie rien , la cellule reste vide

Cliquez pour agrandir...

Pebcac ? Chirogourdie ? Si vous validez bien en matricielle (Ctrl+Maj enfoncés, et entrée), la formule apparait entourée de { }
😉

 

Pièces jointes

• Ultravga.xlsx

  8.7 KB · Affichages: 12

Vote positif 0 Vote négatif

U

Ultravga

XLDnaute Nouveau

• 22 Mai 2019

• #7

Victor21 à dit:

Re,

Pebcac ? Chirogourdie ? Si vous validez bien en matricielle (Ctrl+Maj enfoncés, et entrée), la formule apparait entourée de { }
😉

Cliquez pour agrandir...

ça n'a pas marché , pour certaine il m'a extré le 1er chiffre pour d'autre les 3 premiers .....
par contre j'ai essayé la forume suivant j'ai réussi d'extraire les chiffres le prebleme c'est la lettre/les lettres avant le chiffre je dois extraire la lettre ainsi que le chiffre comme indiqué sur le fichier excel que j'ai attaché merci

VB:

=DROITE(A1;NBCAR(A1)-NBCAR(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;0;"");1;"");2;"");3;"");4;"");5;"");6;"");7;"");8;"");9;"")))

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 22 Mai 2019

• #8

Re,

Il n'était pas utile d'ouvrir un nouveau post, 😡 il aurait suffi que vous indiquiez que vous vous étiez trompé lors de la 1° demande, et que vous changiez le titre du fil.
Avez-vous essayé avec la fonction convertir ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Mai 2019

• #9

Bonsoir le fil, Ultravga, Astragor, Victor21

Une autre formule (non matricielle)
(test OK sur les 3 exemples du message#1)
=1*(DROITE(A1;NBCAR(A1)-MIN(CHERCHE({0;1;2;3;4;5;6;7;8;9}; A1&"0123456789"))+1))

 

Vote positif 0 Vote négatif