Comment extraire les chiffres d'un texte alphanumerique

serir

XLDnaute Junior
Bonjour :cool:,


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

voir piece jointe


Merci bien
 

Pièces jointes

  • Extraire chiffres d'un texte.XLS
    16 KB · Affichages: 154
  • Extraire chiffres d'un texte.XLS
    16 KB · Affichages: 145
  • Extraire chiffres d'un texte.XLS
    16 KB · Affichages: 152

Jocelyn

XLDnaute Barbatruc
Re : Comment extraire les chiffres d'un texte alphanumerique

Bonjour le Forum,
Bonjour serir,

un essai en fichier joint

Cordialement
 

Pièces jointes

  • Extraire chiffres d'un texte.XLS
    22.5 KB · Affichages: 216
  • Extraire chiffres d'un texte.XLS
    22.5 KB · Affichages: 194
  • Extraire chiffres d'un texte.XLS
    22.5 KB · Affichages: 173

Papou-net

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Copie de Extraire chiffres d'un texte-1.xls
    28 KB · Affichages: 175
  • Copie de Extraire chiffres d'un texte-1.xls
    28 KB · Affichages: 188
  • Copie de Extraire chiffres d'un texte-1.xls
    28 KB · Affichages: 206
Dernière édition:

Robert

XLDnaute Barbatruc
Repose en paix
Re : Comment extraire les chiffres d'un texte alphanumerique

Bonjour Serir, Jocelyn, bonjour le forum,

Un proposition VBA :
Code:
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é...
 

MJ13

XLDnaute Barbatruc
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 :).

Code:
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

XLDnaute Impliqué
Re : Comment extraire les chiffres d'un texte alphanumerique

Code:
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:
NumChaine.JPG
 

Discussions similaires

Réponses
16
Affichages
595

Statistiques des forums

Discussions
311 740
Messages
2 082 049
Membres
101 882
dernier inscrit
XaK_