Il y a sûrement plus simple, mais tu peut essayer ceci :
Dim tabl() AsString
Dim i AsInteger
Dim s AsDouble
s = 11.2tabl = Split(
CStr(s), ".")For i = 0 To UBound(tabl)
MsgBox(tabl(i))
Next iIl y a peut-être une chose à voir aussi du côté des paramètres régionaux pour avoir le symbole décimal en ',' au lieu du '.' .
Salutations.