Le 20/04/2010 19:24, Thierry Munoz a écrit :
Le 20/04/2010 14:57, christianwtd a écrit :
Bonjour à toutes et tous,
Je patine dans la choucroute (c'est pas un scoop) avec les cellules
fusionnées.
Je ne trouve pas de solution pour retourner les infos lignes et
colonnes de début et fin lorsque la cellule fusionnée est
sélectionnée. Je n'ai que les coordonnées de la première cellule,
jamais les coordonnées de la dernière cellule.
Quelqu'un a t'il une solution ?
D'avance, merci.
Bon surf,
Christian
Salut Christian,
Merci pour ton site que j'ai beaucoup fréquenté à mes débuts sous OOo
(et j'y reviens encore de temps en temps).
Voici une solution proposée par Bernard Marcelly et Laurent Godard
dans leur excellent ouvrage "Programmation OpenOffice.org
3"(incontournable selon moi) p 425.
Ils utilisent un curseur de cellule.
|Option Explicit
'Solution proposée par Bernard Marcelly et Laurent Godard dans
'||leur livre ||"Programmation OpenOffice.org 3" édition 2009 p 425|
|Sub RetrouverZoneFusionnee()
Dim monDocument As Object, lesFeuilles As Object, maFeuille As Object
Dim maCellule As Object, curseurCellule As Object
monDocument = thisComponent
lesFeuilles = monDocument.Sheets
maFeuille = lesFeuilles.getByName("Feuille2")
maCellule = maFeuille.getCellRangeByName("C22")
curseurCellule = maFeuille.createCursorByRange(maCellule)
curseurCellule.collapseToMergedArea
MsgBox("Cellule : " & maCellule.AbsoluteName & chr(13) & _
"Zone fusionnée : " & curseurCellule.AbsoluteName)
xray curseurCellule
End Sub|
Cordialement,
Thierry
Bonsoir Thierry,
C'est la voie que je suivais (curseur de cellule), mais il est vrai que
je faisais nettement moins bien. Ça semble curieux qu'il n'existe pas de
solution directe, mais on fera sans.
En attendant, merci, à toi, Bernard et Laurent.
Bon surf,
Christian
--
Visitez http://christianwtd.free.fr/ pour débuter avec Calc, d'OpenOffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org
