Laurent Godard a �crit :
regarde du cote de maZoneCellule.dataArray
tu fais tes deux boucles sur ta matrice pour construire une tableau de tableau (colonne x ligne) de variant et tu affectes tout en un seule fois
Ce devrait plus rapide
Tu as un exemple chapitre 12 p 317 du livre
Laurent
OK, merci. Mais j'y arrive pas, il me dit que les dimentions ne correspondent pas. M�me avec cette macro :
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
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
