Function Ion(ByVal Texte As String, IonRef As String) As Long
Dim Ts() As String, Qt As Long
Ts = Split(Texte, IonRef)
For P = 1 To UBound(Ts)
If Ts(P - 1) Like "*(" And Ts(P) Like ")#*" Then Qt = Val(Mid$(Ts(P), 2)) Else Qt = 1
Ion = Ion + Qt: Next P
End Function
Sub TestIon()
MsgBox Ion("(NH4)2HPO4", "NH4")
End Sub