Macros

From The Document Foundation Wiki
< Macros‎ | Calc
Jump to: navigation, search

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 :