Calc macro - Trouver plage associée à une cellule fusionnée

fr-users
#21

Bonjour

Je n'ai pas lu tout le fil, ni la possibilité de tester ce qui est
proposé ci-dessous (donc fautes de frappe possibles) mais
ce qui est demandé dans le titre est possible via l'utilisation
d'un curseur). L'exemple ci-dessous devrait afficher
Feuille 0, Col deb 1, Col fin 2, lig deb 1, lig fin 3
si la plage fusionnée était B2:C4

Sub Main
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

#22

Bonjour Pierre-Yves,

Bon sang mais c'est bien sûr ! Ça marche ...
Je me disais bien qu'il manquait quelqu'un sur cette liste ces derniers
temps.

Bonne rentrée,

Michel

#23

Bonjour et merci beaucoup. Cela fonctionne parfaitement.

Bonne journée

Claude

-------- Message original --------
Sujet : [INTERNET] RE: [fr-users] Calc macro - Trouver plage associée à une cellule fusionnée
Pour : users@fr.libreoffice.org