1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    novembre 2008
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2008
    Messages : 5
    Points : 7
    Points
    7

    Par défaut Module copier coller/transposer

    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

  2. #2
    Futur Membre du Club
    Profil pro
    Inscrit en
    novembre 2008
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2008
    Messages : 5
    Points : 7
    Points
    7

    Par défaut Résolu

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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Copier/Coller TextBox à l'aide de module de classe
    Par Antispyware dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 18/04/2017, 15h10
  2. Aide copier coller transpose autre feuille
    Par caroleisland dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 18/10/2016, 22h03
  3. Réponses: 5
    Dernier message: 21/10/2015, 16h06
  4. [XL-2010] Copier, coller, transposer erreur 1004
    Par Tiblar92 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 10/04/2014, 19h06
  5. [Débutant] Conserver la couleur lors d'un copier coller
    Par ADIDASman dans le forum JBuilder
    Réponses: 2
    Dernier message: 21/05/2003, 18h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo