Macros

    From The Document Foundation Wiki
    < Macros‎ | Calc


    Comment obtenir les références d'une plage fusionnée ?

    Une plage a été fusionnée. On souhaite récupérer les adresses des première et dernière cellule concernées par cette fusion.

    Ceci est possible via l'utilisation d'un curseur[1] qui offre une méthode collapseToMergedArea[2]

    Dans le classeur exemple la plage fusionnée est B2:C4. La procédure affiche Feuille 0, Col deb 1, Col fin 2, lig deb 1, lig fin 3.


    Code de la macro :

    Sub AfficherRefCellFusion
    
    dim oFeuille as object, oCell as object, oCurs as object
    
    oFeuille = thiscomponent.sheets.getByName("Feuille1")
    oCell = oFeuille.getcellrangebyname("B2")
    oCurs = oFeuille.createCursorByRange(oCell)
    oCurs.collapseToMergedArea
    
    with oCurs.RangeAddress
            msgbox "Feuille : " & .Sheet & chr(13) &_
                    "Col deb : " & .StartColumn & chr(13) &_
                    "Col fin : " & .EndColumn & chr(13) &_
                    "Lig deb : " & .StartRow & chr(13) &_
                    "Lig fin : " & .EndRow
    end with
           
    End Sub


    Télécharger le classeur exemple


    Notes :