Extraire des nombres d'une chaine

[kabale53]

Bonjour

Une fois de plus,je sollicite votre aide pour la situation suivante:
Dans la colonne A,j'ai des chaines alphanumériques variables qui se terminent toutes par 8 nombres séparés par des blancs.Je souhaiterais extraire,dans la colonne B, ces 8 nombres tels qu'ils sont présentés dans la colonne A.
Merci

 

[piga25]

Re : Extraire des nombres d'une chaine

Bonjour,

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

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.

 

[kabale53]

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

 

[piga25]

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.

 

[kabale53]

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

 

[BOISGONTIER]

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

 

[kabale53]

Re : Extraire des nombres d'une chaine

Bonjour

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

Avec toute ma reconnaissance.

 

[kabale53]

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