Bonsoir à tous les intervenants
Une solution dérivative personnalisée :
Function EXTRPCENTTXT(pcent As String)
Dim txt, i%
Application.Volatile
txt = Split(pcent)
For i = 0 To UBound(txt)
If txt(i) Like "#*%" Then
txt(i) = Val(txt(i))
Else
txt(i) = Chr(160)
End If
Next i
txt = Split(Trim(Join(txt)), Chr(160))
txt = Trim(Replace(Join(txt, Chr(160)), Chr(160) & " ", ""))
EXTRPCENTTXT = Split(txt)
End Function
Fonction matricielle : Sélectionner 2 cellules (côte à côte sur la même ligne), taper la formule =EXTRPCENTTXT(A1), A1 étant la cellule où se trouve la chaîne dont il faut extraire la valeur des %, puis valider par Ctrl+Maj+Entrée,
et les 2 pourcentages apparaissent.
La fonction peut extraire autant de pourcentages qu'il s'en trouve dans la chaîne, il suffit de sélectionner le nombre de cellules correspondant au départ.
Cordialement.