Macros
TDF LibreOffice Document Liberation Project Blogs communautaires Weblate Nextcloud Redmine Ask LibreOffice Donner
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 :
- ↑ Voir la documentation de l'API
- ↑ Voir la documentation de l'API