Extraire des nombres d'une chaine

piga25

XLDnaute Barbatruc

• 11 Février 2015

• #2

Re : Extraire des nombres d'une chaine

Bonjour,

Avec une fonction personnalisée (création de CBernardT) à mettre dans un module

Code:

Option Explicit
'Fonction créée par CBernardT
Function SelecChiffres(X As Range)
Dim i As Integer, Chiffres As String
For i = 1 To Len(X)
If IsNumeric(Mid(X, i, 1)) Then
Chiffres = Chiffres & Mid(X, i, 1)
End If
Next i
SelecChiffres = Chiffres * 1
End Function

Edit : avec le fichier c'est mieux pour comprendre.

 

Pièces jointes

• extraction chiffre.xlsm

  16.8 KB · Affichages: 42

Dernière édition: 11 Février 2015

Vote positif 0 Vote négatif

kabale53

XLDnaute Occasionnel

• 11 Février 2015

• #3

Re : Extraire des nombres d'une chaine

Bonjour piga

Merci de votre aide précieuse.
Cela pourrait-il etre fait par formules?
Ce qui me permettrait d'y apporter quelques réajustemements pour d'autres situations différentes de cas précis.

Merci

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 11 Février 2015

• #4

Re : Extraire des nombres d'une chaine

Bonjour,

Il s'agit d'une formule.
Exemple:
Vous avez en A1 : 1hjju23hjui56 45 - jjk5
En B1 vous mettez : =SelecChiffres(A1)
et vous aurez comme résultat : 12356455
Peut importe l'emplacement des chiffres dans la cellule de départ, seuls les chiffres seront restitués et dans l'ordre ou il étaient au départ.

 

Vote positif 0 Vote négatif

kabale53

XLDnaute Occasionnel

• 11 Février 2015

• #5

Re : Extraire des nombres d'une chaine

Bonjour piga

Désolé,j'aurais souhaité une solution sans macro et aussi extraire seulement les 8 derniers nombres de chaque chaine alphanumérique par exemple:

Soit la chaine: azsert g58frh 12 7 14 5 9 3 11 17

La partie extraite sera: 12 7 14 5 9 3 11 17

Merci

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 11 Février 2015

• #6

Re : Extraire des nombres d'une chaine

Bonsoir,

=STXT(A1;CHERCHE(" ";A1);99) ' s'il y a un espace avant le premier chiffre

ou

=STXT(A1;EQUIV(VRAI;ESTNUM(--(STXT(A1;LIGNE($1:$255);1)));0);99)
valider avec maj+ctrl+entrée

ou sil y a des chiffres dans le libellé

=STXT(A1;NBCAR(A1)-EQUIV(FAUX;ESTNUM(--(STXT(SUBSTITUE(A1;" ";"0");NBCAR(SUBSTITUE(A1;" ";"0"))-LIGNE($1:$255);1)));0)+1;99)

JB

 

Pièces jointes

• extraction-1.xls

  37.5 KB · Affichages: 56

Dernière édition: 11 Février 2015

Vote positif 0 Vote négatif

kabale53

XLDnaute Occasionnel

• 11 Février 2015

• #7

Re : Extraire des nombres d'une chaine

Bonjour

Un grand merci BOISGONTIER,c'est exactement ce que je cherchais.

Avec toute ma reconnaissance.

 

Vote positif 0 Vote négatif

kabale53

XLDnaute Occasionnel

• 11 Février 2015

• #8

Re : Extraire des nombres d'une chaine

Bonsoir

Merci beaucoup pour ce complément d'information . Cela m'a permis d'apprendre quelque chose de tres utile aujourd'hui.

Merci

 

Vote positif 0 Vote négatif