Bonsoir,
Pour la moyenne de la somme des nombres séparés par des "p", on peut faire une fonction personnalisée :
Function MOYP(vp As String)
Dim txp, n%, i%
txp = Replace(Replace(vp, " ", ""), "P", "p")
txp = Split(txp, "p")
n = UBound(txp) + 1
If txp(n - 1) = "" Then n = n - 1
For i = 0 To UBound(txp)
If txp(i) = "" Then txp(i) = 0
Next i
txp = "=(" & Join(txp, "+") & ")/" & n
MOYP = Evaluate(txp)
End Function
qui s'utilisera comme toute autre fonction d'Excel (à placer dans un module standard).
Je n'ai par contre rien compris au traitement des autres valeurs littérales, au résultat à obtenir et au type de données du résultat (texte ou nombre). Il faudrait donc être plus explicite.
Cordialement.