Excel : un nombre dans ligne de txt alphN

Matash -  
 Matash -
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.
A voir également:

3 réponses

cousinhub29 Messages postés 1135 Date d'inscription   Statut Membre Dernière intervention   364
 
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
3
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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+
2
Matash
 
Ok merci à vous deux! ça fonctionne merveilleusement bien!
C'est agréable d'avoir une réponse si rapidement! je vous en félicite!
A bientôt.
0
Matash
 
merci de bien vouloir m'aider!
0
lami20j Messages postés 21644 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Salut,

Tu n'as pas vu la réponse donnée alors par cousinhub29 ;-)
Regarde ici
0