Comment extraire les chiffres d'un texte alphanumerique

[serir]

Bonjour 😎,


J'ai un texte alphanumerique, comment faire pour extraire que les chiffres

voir piece jointe


Merci bien

 

[Jocelyn]

Re : Comment extraire les chiffres d'un texte alphanumerique

Bonjour le Forum,
Bonjour serir,

un essai en fichier joint

Cordialement

 

[Papou-net]

Re : Comment extraire les chiffres d'un texte alphanumerique

Bonjour serir, Jocelyn,

Un exemple avec une fonction personnalisée, encartée dans Module1.

Il suffit d'écrire, dans les cellules concernées : "=fnnum(Ax") en remplaçant x par le numéro de ligne de la cellule.

Cordialement.

Edit : bonjour Jean-Marcel, notre ami serir peut user de ses rire(s), il a maintenant 3 solutions distinctes.

 

[serir]

Re : Comment extraire les chiffres d'un texte alphanumerique

Merci bien Jocelyn et Jean-Marcel

 

[Robert]

Re : Comment extraire les chiffres d'un texte alphanumerique

Bonjour Serir, Jocelyn, bonjour le forum,

Un proposition VBA :

Sub Macro1()
Dim sp As String 'déclare la variable sp (SPlit)


For Each cel In Range("A3:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row) 'boucle sur toutes les cellules editées de la colonne A
    sp = Split(cel.Value, "( ")(1) 'récupère le texte après "( " (ouverture de parenthèse et espace)
    cel.Offset(0, 1).Value = Left(sp, Len(sp) - 13) 'récupère en B le texte sp sans les 13 derniers caractères
Next cel 'prochaine cellule de la boucle
End Sub

[Édition]
Bonjour Papou-net, Jean-Marcel, on s'est croisé...

 

[Modeste geedee]

Re : Comment extraire les chiffres d'un texte alphanumerique

Bonsour®

Bonjour Jocelyn, le forum,

🙄
autre façon sans macro ...

=1*GAUCHE(STXT(A3;TROUVE("( ";A3)+2;NBCAR(A3));TROUVE(" ";STXT(A3;TROUVE("( ";A3)+2;NBCAR(A3))))

nb :
contrainte les chiffres doivent toujours suivre la parenthèse ouvrante elle même suivie d'un espace :
"( "

 

[MJ13]

Re : Comment extraire les chiffres d'un texte alphanumerique

Bonjour à tous

Une autre petite fonction pour extraire des chiffres d'une cellule ou d'une zone, voire des nombres avec virgule en texte ou en valeur 🙂.

Function ExtraitChiffres(zone As Range) 'As Long
ExtraitChiffresTxt = ""
For Each cell In zone
For i = 1 To Len(cell)
If IsNumeric(Mid(cell, i, 1)) Or Mid(cell, i, 1) = "," Then ExtraitChiffresTxt = ExtraitChiffresTxt & Mid(cell, i, 1)
Next
Next
ExtraitChiffres = ExtraitChiffresTxt
End Function

 

[kingfadhel]

Re : Comment extraire les chiffres d'un texte alphanumerique

Function NumChaine(chaine)
  temp = ""
  For i = 1 To Len(chaine)
    c = Mid(chaine, i, 1)
    If c >= "0" And c <= "9" Or c = "." Then temp = temp & c
  Next i
  NumChaine = temp
End Function

à copier dans un module,
enregistré le classeur sous : Macro Complémentaire (97-2003 .xla) (2007 et + .xlam)

exemple d'utilisation: