[Libreoffice-bugs] [Bug 133575] New: comportement anormal d'une macro sous calc

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=133575

            Bug ID: 133575
           Summary: comportement anormal d'une macro sous calc
           Product: LibreOffice
           Version: 6.4.2.1 rc
          Hardware: x86-64 (AMD64)
                OS: Windows (All)
            Status: UNCONFIRMED
          Severity: normal
          Priority: medium
         Component: LibreOffice
          Assignee: libreoffice-bugs at lists.freedesktop.org
          Reporter: serge.verdu at orange.fr

Description:
Deux feuilles, la seconde contient les dépenses du mois synthétisées par thème
dans la colonne O. Une macro copie la colonne O dans la colonne (de 1 à 12) de
la feuille 1 spécifiée en B1.
L'année dernière la macro fonctionnait correctement. Cette année elle
fonctionne pour les colonnes cibles de 1 à 11 mais plus pour la colonne 12.
La macro
sub copie
dim lig as integer
dim col as integer
dim fs as object 
dim f1 as object
dim f2 as object 
Dim Sheet As Object
Dim Cell As Object   
 Dim oFeuilles
  Dim oFeuille
  Dim oCellule

  fs = ThisComponent.getSheets()
 f1 = fs.getByIndex(0)
f2=fs.getByindex(1)
col=f2.getcellbyposition(1,0).getvalue()

Dim Dlg As Object

DialogLibraries.LoadLibrary("Standard")
Dlg = CreateUnoDialog(DialogLibraries.Standard.diacopie)
Ctl = Dlg.getControl("num")
Ctl.value = col

Select Case Dlg.Execute() 
Case 1
if col > 0 and col <14  then 
for lig=2 to 22
if lig<>5 then
f1.getcellbyposition(col,lig).value=f2.getcellbyposition(13,lig).getvalue()
end if
next 
end if

case 0

msgbox("Sortie sans rien faire")

end select 
end sub

Steps to Reproduce:
1.La plage O3:O24 de la feuille 2 contient des nombres. La cellule B1 contient
l'index de la colonne de la feuille 1 où il faut ranger cette plage.
2.on lance la macro copie
3.cela foctionne correctement pour B1=1 à 11 mais pas pour B1=12.

Actual Results:
Il semble que la macro copie la colonne N et non la colonne O alors que l'index
de la colonne à copier est en dur dans la macro

Expected Results:
copie de la colonne O


Reproducible: Always


User Profile Reset: Yes


OpenGL enabled: Yes

Additional Info:
[Information automatically included from LibreOffice]
Locale: fr
Module: SpreadsheetDocument
[Information guessed from browser]
OS: Windows (All)
OS is 64bit: no

-- 
You are receiving this mail because:
You are the assignee for the bug.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20200601/1e6110da/attachment-0001.htm>