Calc – Cette macro vous permet de manipuler une zone de cellules sous forme de tableau

Auteur : Bernard Marcelly

rem Basic

rem - Manipuler une zone de cellules sous forme d'un tableau -

' Dans cet exemple on ajoute 2000 au contenu de chacune

' des cellules de la zone sélectionnée par l’utilisateur.

' On pourrait aussi bien traiter une zone contenant des textes.

' Bien que certaines variables ne soient pas déclarées tableau,

' Basic semble traiter correctement leur indexage...

Option Explicit

Sub zoneTableau

Dim MonDocument As Object, Controleur As Object

Dim UnezoneCellule As Object, CoordZone As Object

Dim x1 As Long, y1 As Long

Dim mesValeurs As Double, vligne As Double, UnElement As Double

MonDocument = ThisComponent

Controleur = MonDocument.CurrentController

UnezoneCellule = Controleur.Selection

mesValeurs = UneZoneCellule.getDataArray

for y1 = LBound(mesValeurs) to UBound(mesValeurs)

vligne = mesValeurs(y1)

for x1 = LBound(vligne) to UBound(vligne)

UnElement = vligne(x1) +2000

vligne(x1) = UnElement

next x1

mesValeurs(y1) = vligne

next y1

UneZoneCellule.setDataArray(mesValeurs)

End Sub

Sophie Gautier

2003-05-04T08:40:20