Bug 150796 - LibreOffice/Calc/Basic/Linux: result of a call function overload the macro call in cell !!! NOT OCCURE Windows/Calc/Basic
Summary: LibreOffice/Calc/Basic/Linux: result of a call function overload the macro ca...
Status: RESOLVED INSUFFICIENTDATA
Alias: None
Product: LibreOffice
Classification: Unclassified
Component: LibreOffice (show other bugs)
Version:
(earliest affected)
7.3.3.2 release
Hardware: x86-64 (AMD64) Linux (All)
: medium normal
Assignee: Not Assigned
URL:
Whiteboard:
Keywords:
Depends on:
Blocks:
 
Reported: 2022-09-05 14:28 UTC by bernard.maldonado
Modified: 2023-09-13 03:17 UTC (History)
1 user (show)

See Also:
Crash report or crash signature:


Attachments
Example file with non-working macro (10.39 KB, application/vnd.oasis.opendocument.spreadsheet)
2023-02-13 10:24 UTC, Buovjaga
Details

Note You need to log in before you can comment on or make changes to this bug.
Description bernard.maldonado 2022-09-05 14:28:24 UTC
Description:
In a sheet of Libre office under Linux I put values in cells B2,C2,D2,E2,F2
In other cell I call the function Bidouille :
        = Bidouille((B2:F2))
The function compute a Reponse correctly
 1  1  1  5
7 6 5 4 3 
Calc return the value of Reponse but the call of the macro of the cell (=Reponse(B2:F2) is overload by the Reponse !!!
I need to tape again and again the call of the macro.
See below code of the macro.
function Bidouille(A())
	dim i			as integer
	dim j			as integer
	dim imin		as integer
	dim imax		as integer
	dim jmin		as integer
	dim jmax		as integer
	dim iminR		as integer
	dim imaxR		as integer
	dim jminR		as integer
	dim	jmaxR		as integer
	dim Reponse
	dim S

	imin = lbound(A(),1)	:	imax = ubound(A(),1)
	jmin = lbound(A(),2)	:	jmax = ubound(A(),2)	:	dim R(imax,jmax)
	iminR = lbound(R(),1)	:	imaxR = ubound(R(),1)
	jminR = lbound(R(),2)	:	jmaxR = ubound(R(),2)
'	print A(1,1),A(1,2),A(1,3),A(1,4)
	S = ""
	for i=imin to imax
		for j=jmin to jmax
			R(i,j) = A(i,j)
			S = S & R(i,j) & chr$(9)
			if j = jmax then
				S = S & chr$(10) & chr$(13)
			end if
		next j
		S = S & chr$(10) & chr$(13)
	next i
	Reponse = str$(imin) & " " & str$(imax) & " " & str$(jmin) & " " & str$(jmax) & chr$(10) & chr$(13) & S
	Bidouille = Reponse
end function


Steps to Reproduce:
1.open a sheet LibreOffice
2.Create the macro Bidouille
3.Put values in cells B2,C2,D2,D2,F2
4.In an other cell write =Bidouille((B2:C2))

Actual Results:
 1  1  1  5
7 6 5 4 3 


Expected Results:
The "Actual results" overload the call of the function Bidouille.
We need to rewrite the call of the function Bidouille.


Reproducible: Always


User Profile Reset: No



Additional Info:
Below the function :

function Bidouille(A())
	dim i			as integer
	dim j			as integer
	dim imin		as integer
	dim imax		as integer
	dim jmin		as integer
	dim jmax		as integer
	dim iminR		as integer
	dim imaxR		as integer
	dim jminR		as integer
	dim	jmaxR		as integer
	dim Reponse
	dim S

	imin = lbound(A(),1)	:	imax = ubound(A(),1)
	jmin = lbound(A(),2)	:	jmax = ubound(A(),2)	:	dim R(imax,jmax)
	iminR = lbound(R(),1)	:	imaxR = ubound(R(),1)
	jminR = lbound(R(),2)	:	jmaxR = ubound(R(),2)
'	print A(1,1),A(1,2),A(1,3),A(1,4)
	S = ""
	for i=imin to imax
		for j=jmin to jmax
			R(i,j) = A(i,j)
			S = S & R(i,j) & chr$(9)
			if j = jmax then
				S = S & chr$(10) & chr$(13)
			end if
		next j
		S = S & chr$(10) & chr$(13)
	next i
	Reponse = str$(imin) & " " & str$(imax) & " " & str$(jmin) & " " & str$(jmax) & chr$(10) & chr$(13) & S
	Bidouille = Reponse
end function
Comment 1 Buovjaga 2023-02-13 10:24:48 UTC
Created attachment 185342 [details]
Example file with non-working macro

I tried to repro, but the function is not working, plz help
Comment 2 QA Administrators 2023-08-13 03:20:22 UTC Comment hidden (obsolete)
Comment 3 QA Administrators 2023-09-13 03:17:31 UTC
Dear bernard.maldonado,

Please read this message in its entirety before proceeding.

Your bug report is being closed as INSUFFICIENTDATA due to inactivity and
a lack of information which is needed in order to accurately
reproduce and confirm the problem. We encourage you to retest
your bug against the latest release. If the issue is still
present in the latest stable release, we need the following
information (please ignore any that you've already provided):

a) Provide details of your system including your operating
   system and the latest version of LibreOffice that you have
   confirmed the bug to be present

b) Provide easy to reproduce steps – the simpler the better

c) Provide any test case(s) which will help us confirm the problem

d) Provide screenshots of the problem if you think it might help

e) Read all comments and provide any requested information

Once all of this is done, please set the bug back to UNCONFIRMED
and we will attempt to reproduce the issue. Please do not:

a) respond via email 

b) update the version field in the bug or any of the other details
   on the top section of our bug tracker

Warm Regards,
QA Team

MassPing-NeedInfo-FollowUp