[XL-2003] Extraction nombre dans cellule [Résolu]

[Paradiso]

Bonsoir,

J'ai des données au format suivant :
0.3% en classe
en verrou 10%
0.5ù en classe
a 100%

Je souhaite extraire que le nombre en % :
0.3%
10%
0.5%
100%

J'ai essayé les formules stxt ou trouve ou gauche ou droite en les combinant
mais je n'arrive pas à extraire le nombre en %

Merci pour votre aide

[Michel_M]

Bonjour,

avec une fonction personnalisée après mon échec avec des formules

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Function extraire_percent(cellule As Range) As double
Dim separe As Variant, cptr As Byte
 
separe = Split(cellule)
For cptr = 0 To UBound(separe)
    If separe(cptr) Like "*%*" Then
        extraire_percent = Left(separe(cptr), Len(separe(cptr)) - 1)
        Exit Function
    End If
Next
extraire_percent = ""
End Function

et mettre la cellule réceptrice au format pourcentage...

[Paradiso]

Merci, cela fonctionne avec merveille.