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
De : pierre-yves samyn <pierre-yves.sa...@laposte.net>
Pour : users@fr.libreoffice.org
Date : 28/08/2013 16:55
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
--
View this message in context:
http://nabble.documentfoundation.org/Calc-macro-Trouver-plage-associee-a-une-cellule-fusionnee-tp4069741p4072048.html
Sent from the Users mailing list archive at Nabble.com.
--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour savoir comment vous
désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés