Excel : un nombre dans ligne de txt alphN Fermé

Question

Bonjour, j'ai dans une colonne des données numériques à extraire d'une ligne de texte alphanumérique.
Par exemple:
"Merci de reprendre la fiche 14298 et faire la modification. "
Ainsi je souhaiterai juste Isoler 14298!!!
Quelle est la fonction apropriée svp.

cousinhub29 · Accepted Answer

Bonjour,

Essaie cette fonction personnalisée :

Function LesNombres(cel As Range) As Double
Dim Tbl
Dim I As Byte
Tbl = Split(cel.Value)
For I = LBound(Tbl) To UBound(Tbl)
    If IsNumeric(Tbl(I)) Then
        LesNombres = Tbl(I)
        Exit Function
    End If
Next I
End Function


et dans B2, tu mets :

=LesNombres(A2)

par exemple, pour récupérer ce nombre...

Attention, 1 seul nombre seulement ne pourra être trouvé...

si tu as plusieurs nombres, précise...

Bonne journée

Matash · Answer

merci de bien vouloir m'aider!

lermite222 · Answer

Bonjour,
La fonction présentée par cousinhub29 est impecable, manque juste une ligne pour que la fonction se réinitialise si la cellule source est modifiée.

Function LesNombres(cel As Range) As Double
Dim Tbl
Dim I As Byte
    'ICI
    Application.Volatile
    Tbl = Split(cel.Value)
    For I = LBound(Tbl) To UBound(Tbl)
        If IsNumeric(Tbl(I)) Then
            LesNombres = Tbl(I)
            Exit Function
        End If
    Next I
End Function
A+