Extraction de données

Salut Yann,

J'ai vu dernièrement sur ce forum un macro qui extrait les valeurs numériques d'une chaîne de texte.
Je ne l'ai pas sous la main, mais cela ne va tarder.

Je crois qu'il y a moyen de le faire par formule, mais alors tu devrais préciser si les chaînes 'Pour élèves de' et 'Pour' sont les seules qui peuvent précéder les chiffres et si 'ème année' est toujours la même en fin de chaîne.

Â+

Bonjour

si A1='Pour élèves de 4, 5 ème année.' ---> 4, 5
alors saisir en B1
=DROITE(A1;NBCAR(A1)-TROUVE('>';A1)-1)

Résultat= 4,5

Bonjour yann, andré, staple, le forum

Une proposition par fonction personnalisée :

Public Function retrouvenombre(cellule As Range) As Double
Dim i As Byte
Dim j As Integer

For i = 1 To Len(cellule)
    If IsNumeric(Mid(cellule, i, 1)) Then
        For j = Len(cellule) To 1 Step -1
            If IsNumeric(Mid(cellule, j, 1)) Then Exit For
        Next j
        Exit For
    End If
Next i

retrouvenombre = Mid(cellule, i, j - i + 1)
           

End Function

Cliquez pour agrandir...

Ce code est a placé dans un module standard (alt+f11 puis insertion module), ensuite on appel comme toute formule celle-ci dans une cellule : = retrouvenombre(A1)

salut