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 > -----Message d'origine----- > De : pierre-yves samyn [mailto:[email protected]] > Envoyé : mercredi 28 août 2013 16:55 > À : [email protected] > Objet : RE: [fr-users] Calc macro - Trouver plage associée à une cellule > fusionnée > > 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 à [email protected] 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 -- Envoyez un mail à [email protected] 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
