Option Explicit
'! ©Thierry Pourtier, mai 02 - mai 2006 : xlti@wanadoo.fr
'! http://www.veriti.net
'! version 1.9
Const cccccccccccccccccccc = " LN", ccccccccccccccccccccc = " LA", cccccccccccccccccccccc = " LD"
Dim ccccccccccccccccccccccc$, cccccccccccccccccccccccc$, ccccccccccccccccccccccccc$, cccccccccccccccccccccccccc$, dddddddddd%
Dim ddddddddddd As Collection
Private Function dddddddddddd$(ddddddddddddd$)
dddddddddddd = F1.Evaluate(ddddddddddddd)
End Function
Private Function dddddddddddddd$(ByVal ddddddddddddddd$)
Do
dddddddddddddd = dddddddddddddd & Left$(ddddddddddddddd, 1)
ddddddddddddddd = Replace(ddddddddddddddd, Left$(ddddddddddddddd, 1), "")
Loop Until ddddddddddddddd = ""
End Function
Private Sub dddddddddddddddd()
If aaaaaaaaaaaa Then
nnnnnnnnnnnnnnnnnnnnn = ccccccccccccccccccccccc & IIf(aaaaaaaaaaaaaaaa, cccccccccccccccccccccccc, "") & IIf(aaaaaaaaaaaaaaaaa, UCase(cccccccccccccccccccccccc), "") & IIf(aaaaaaaaaaaaaaaaaa, ccccccccccccccccccccccccc, "")
ElseIf aaaaaaaaaaaaa Then
nnnnnnnnnnnnnnnnnnnnn = cccccccccccccccccccccccccc
Else
nnnnnnnnnnnnnnnnnnnnn = aaaaaaaaaaaaaaaaaaaaaaaaaa.Text
End If
aaaaaaaaaaaaaaaaaaaaaaaaaa.Text = nnnnnnnnnnnnnnnnnnnnn
End Sub
Private Sub ddddddddddddddddd()
Dim dddddddddddddddddd%, ddddddddddddddddddd%, dddddddddddddddddddd
On Error GoTo bfvg
dddddddddddddddd
dddddddddddddddddd = Len(nnnnnnnnnnnnnnnnnnnnn)
For ddddddddddddddddddd = nnnnnnnnnnnnnnnnnnnn To nnnnnnnnnnnnnnnnnnn: dddddddddddddddddddd = CDec(dddddddddddddddddddd + dddddddddddddddddd ^ ddddddddddddddddddd): Next ddddddddddddddddddd
If dddddddddddddddddddd > 10 ^ 9 * 10 Then
aaaaaaaaaaaaaaa = Format(dddddddddddddddddddd, "0.E+00")
Else
aaaaaaaaaaaaaaa = Format(dddddddddddddddddddd, "# ### ### ##0")
End If
Exit Sub
bfvg:
aaaaaaaaaaaaaaa = "il y en a trop !"
End Sub