Option Explicit
' = Dim1Dim2Prod3(x, xquoi, xdiviseur)
' x -> le terme source
' xquoi -> si 1 alors on retourne la première dimension
' si 2 alors on retourne la seconde dimension
' si 3 alors on retourne le produit des deux dimensions ET de xdiviseur
' xdiviseur -> le diviseur du produit des deux dimensions - si absent alors xdiviseur vaut 1
' pour xquoi = 1 ou 2, la valeur de xdiviseur est bien sûr inutile et ignorée
Function Dim1Dim2Prod3(ByVal x$, ByVal xquoi&, Optional ByVal xdiviseur# = 1)
Dim i&, c$, s, r
For i = 1 To Len(x)
c = Mid(x, i, 1)
If c Like "#" Then s = s & c Else s = s & " "
s = Replace(s, " ", " ")
Next i
s = Split(Trim(s))
If xquoi = 1 Then r = Val(s(0)) Else If xquoi = 2 Then r = Val(s(1)) Else r = Val(s(0)) * Val(s(1)) / xdiviseur
Dim1Dim2Prod3 = r
End Function