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@lists.freedesktop.org
Reporter: serge.ve...@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.
_______________________________________________
Libreoffice-bugs mailing list
Libreoffice-bugs@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs