Re Bonjour Jean-Claude
Le 08/06/05, [EMAIL PROTECTED]<[EMAIL PROTECTED]>
a écrit :
[...]
> Le test demandé consiste à :
> - ouvrir un nouveau document Calc
> - ouvrir le Basic :Menu Outils/Macros/Macros...
Dans mon cas les menus ne correspondent pas, je suis allé dans :
Outils -> Macros -> Gérer les macros -> OpenOffice.org Basic...
> - descendre l'ascenseur de la liste déroulante de gauche jusqu'en bas et y
> sélectionner "Standard" (dans "Sans Nom 1")
> - cliquer sur "Nouveau" et valide le nom du module proposé
> - faire monter le curseur sur la 2ème ligne (juste sous "REM ***** BASIC
> ****")
> - copier le code ci dessous, le coller dans le Basic à l'endroit où se
> trouve le curseur
> - appuyer sur F5
> - noter le chiffre indiqué par chaque boite de dialogue (3 chiffres en tout)
> - me renvoyer ces valeurs ainsi que la version d'Ooo et de système
> d'exploitation utilisé
Les valeurs retournées sont :
8 ; 8 ; 10.
J'ai effectué ce test sur une 1.9.100 sous Windows2K
Je peux te faire un autre test ce soir sur une Fedora2
avec une 1.9.104 ou 1.1.4 si besoin.
> Merci,
De rien.
> Jean-Claude
>
> Sub Test
> Dim oCurseur As Object
> Dim oSheet As Object
>
> oSheet = ThisComponent.Sheets(0)
> oSheet.getCellByPosition( 8, 8).String = "X"
> oCurseur = oSheet.createCursor
> 'Find the sheet's last cell
> oCurseur.GotoEndOfUsedArea(True)
> 'Display "8", that's correct
> Print oCurseur.getRangeAddress.EndRow
>
> ThisComponent.LockControllers
> oSheet.getCellByPosition( 8, 8).String = ""
> oSheet.getCellByPosition( 10, 10).String = "X"
> oCurseur.GotoEndOfUsedArea(True)
> 'Also display "8", that's very BAD !!!
> Print oCurseur.getRangeAddress.EndRow
>
> ThisComponent.unLockControllers
> oCurseur.GotoEndOfUsedArea(True)
> 'Display "10", that's correct too
> Print oCurseur.getRangeAddress.EndRow
> oSheet.getCellByPosition( 10, 10).String = ""
> End Sub
--
SICCARDI Arnaud
[EMAIL PROTECTED]
co Rosamaria CIANELLA
Via N. Bixio 12
56 100 PISA
ITALY
Tel. +39 3408911758
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
