Bonjour,
une solution avec des fonctions personnalisées
Function somchi(c)
'calcule la somme des chiffres du nombre c
For i = 1 To Len(c)
s = s + Val(Mid(c, i, 1))
Next
somchi = s
End Function
Function prochi(c)
'calcule le produit des chiffres du nombre c
p = 1
For i = 1 To Len(c)
p = p * Val(Mid(c, i, 1))
Next i
prochi = p
End Function
à utiliser par exemple ainsi
en B1
=somchi(A1)
en c1
=prochi(A1)