Discussion :

[lvignaud]

Bonjour à tous,

alors j'ai actuellement un fichier sous la forme :

Code :

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

1
2
3
4
 | A | B | C
1|1,2|2,4|1,5
2|3,7|2,4|8,1
3| 5 |4,7|3,2

je voulais savoir s'il était possible de le mettre sous cette forme :

Code :

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

1
2
3
4
5
6
7
8
9
10
 | A 
1|1,2 (A1)
2|2,4 (B1)
3|1,5 (C1)
4|3,7 (A2)
5|2,4 (B2)
6|8,1 (C2)
7| 5  (A3)
8|4,7 (B3)
9|3,2 (C3)

sans avoir besoin de tout réécrire, car mon fichier fait plus de 200 000 cases ?

Merci d'avance

[zoom61]

Bonjour,

Il suffit d'utiliser la collage spécial, et la fonctionnalité "Transposer".

Et en oBasic, cela ressemblera à :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub FonctionTransposee()
 
dim document   as object
dim dispatcher as object
 
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
dim args(0) as new com.sun.star.beans.PropertyValue
    args(0).Name = "Transpose"
    args(0).Value = true
 
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args())
 
end sub

[lvignaud]

Bonjour

Merci cela fonctionne mais seulement pour une ligne.
Or j'ai plus de 8 000 lignes et du coup ça fait beaucoup de copier/coller.

N'y a-t-il pas un moyen de mettre automatiquement les lignes suivantes à la suite de la précédente ?

Pour être plus précis je souhaite que comme indiqué dans le code au tout début les lignes suivantes ce mettent dessous la ligne précédente, quand je fais un collage spécial de tout, les autres colonnes ce mettent à la colonne suivante etc ... c'est pas ce que je souhaite.

Merci

[zoom61]

Avec quelque chose comme cela :

Code :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub Total()
    dim monDocument as object
    dim lesFeuilles as Object
     dim maFeuille As Object
    dim maCellule As Object
    dim dispatcher as object
    dim maPosition as object
 
    monDocument = ThisComponent.CurrentController
 
    lesFeuilles = ThisComponent.Sheets
    maFeuille = lesFeuilles.getByName("Feuille1")
    maCellule = maFeuille.getCellRangeByName("A1")
    monDocument.Select(maCellule)
 
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
    dim args1(0) as new com.sun.star.beans.PropertyValue
 
    dim args2(0) as new com.sun.star.beans.PropertyValue
        args2(0).Name = "Transpose"
        args2(0).Value = true
 
 
    dispatcher.executeDispatch(monDocument, ".uno:GoDownToEndOfData", "", 0, args1())
 
    cellule = ThisComponent.CurrentSelection
    maPosition = cellule.CellAddress
 
    NbLigne = maPosition.Row
 
    For i = 0 to NbLigne
        maCellule = maFeuille.getCellByPosition(0, i)
        monDocument.Select(maCellule)
 
        dispatcher.executeDispatch(monDocument, ".uno:GoRightToEndOfData", "", 0, args1())
 
        cellule = ThisComponent.CurrentSelection
        maPosition = cellule.CellAddress
 
        NbColonne = maPosition.Column
 
        maCellule = maFeuille.getCellRangeByPosition(0, i, NbColonne, i)
        monDocument.Select(maCellule)
 
        dispatcher.executeDispatch(monDocument, ".uno:GoToCell", "", 0, args1())
        dispatcher.executeDispatch(monDocument, ".uno:Copy", "", 0, Array())
 
        maFeuille = lesFeuilles.getByName("Feuille2")
        maCellule = maFeuille.getCellRangeByName("A1")
        monDocument.Select(maCellule)
        maPosition = maFeuille.createCursor
        maPosition.gotoEndOfUsedArea(False)
        DernierLigne= maPosition.RangeAddress.EndRow+1
        maCellule = maFeuille.getCellByPosition(0,DernierLigne)
        monDocument.Select(maCellule)
 
        dispatcher.executeDispatch(monDocument, ".uno:InsertContents", "", 0, args2())
 
        maFeuille = lesFeuilles.getByName("Feuille1")
 
    Next
End sub

[lvignaud]

Merci beaucoup c'est trop parfait !!!

Je n'ai pas tout comprit à votre code mais il marche trop bien !
Juste à changer quelques paramètres pour les noms de feuilles mais c'est parfait.

Encore Merci