Discussion :

[gegetrois]

Bonjour à tous,
J'ai trouvé et adapté le module ci-dessous qui : dans un classeur Calc,
copie la zone verticale A1:A3 dans la zone horizontale B1:d1.
ca marche bien, mais je voudrais faire l'inverse, cad copier une zone horizontale dans une zone verticale
j'ai tout essayé, mais je manque de formation dans les objets et les méthodes.
La macro n'est pas longue et je n'arrive pas à la modifier, je fais du pas à pas, surveille les valeurs, rien à faire...

un peu d'aide serait la bienvenue, merci d'avance.

Code oBasic :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Transpose8(Optional oActiveSheet As Variant)
 
Dim aRangeAddress As New com.sun.star.table.CellRangeAddress
 
Dim oCellRange As Variant
Dim oDataArray As Variant
Dim outDataArray As Variant
 
   If IsMissing(oActiveSheet) Then
       oActiveSheet = ThisComponent.getCurrentController().getActiveSheet()
   EndIf
 
    oCellRange = oActiveSheet.getCellRangeByPosition(0,0,0,2)
    oDataArray = oCellRange.getDataArray()
    outDataArray = DimArray(0)
 
    outDataArray(0) = Array(oDataArray(0)(0),oDataArray(1)(0),oDataArray(2)(0))
 
    print oDataArray(0)(0)
 
    oCellRange = oActiveSheet.getCellRangeByPosition(1,6,3,6)
 
    oCellRange.setDataArray(outDataArray)
 
End Sub

[gegetrois]

Je me suis débrouiller d'une autre façon,
mais cette macro me plaisait bien par son élégance....