Re-Bonjour, Bernard Siaud alias Troumad a écrit : > Francois Gatto a écrit : >> option explicit >> global oDoc as object >> global oMouseClickHandler as object >> const iClicksNumber = 1 'nombre de clics à détecter >> >> sub StartMouseClickHandler >> oDoc = ThisComponent.currentController >> oMouseClickHandler = createUnoListener( "MCHApp_", >> "com.sun.star.awt.XMouseClickHandler" ) >> oDoc.addMouseClickHandler( oMouseClickHandler ) >> end sub >> >> sub StopMouseClickHandler >> oDoc.removeMouseClickHandler( oMouseClickHandler ) >> end sub >> >> >> sub MCHApp_disposing( oEvt ) >> end sub >> >> function MCHApp_mousePressed( oEvt ) as boolean >> MCHApp_mousePressed = false >> end function >> >> function MCHApp_mouseReleased( oEvt ) as boolean >> dim oCurSel as object >> dim oConv as object >> dim iCol as integer, iLig as long >> if oEvt.ClickCount = iClicksNumber then >> oCurSel = thisComponent.CurrentSelection >> oConv = thisComponent.createInstance( >> "com.sun.star.table.CellAddressConversion" ) >> oConv.Address = oCurSel.getCellAddress >> with oCurSel.RangeAddress >> 'Attention si dernière colonne >> iCol = .StartColumn + 1 >> if iCol >= 255 then >> msgbox( "Hep ! Limite atteinte.", 48, "OOoups !" ) >> iCol = iCol - 1 >> end if >> iLig = .StartRow >> end with >> thisComponent.CurrentController.ActiveSheet.getCellByPosition( iCol, >> iLig ).String = oConv.UserInterfaceRepresentation >> end if >> MCHApp_mouseReleased = false >> end function >> >> Francois Gatto >> >> NB : non testé sous Windows, mais je pense qu'il n'y a pas de problème. >> > Il faudra que je prenne le temps de comprendre ceci
En effet, comprendre c'est acquérir l'autonomie ;-) > pour n'activer qu'une partie d'une seule feuille ! Bien sûr on peut ne traiter/contrôler qu'une partie de feuille, c'est à dire une plage. Par là même, une plage étant une réunion de cellules, on peut ne contrôler qu'une seule cellule. CQFP :-D L'exemple présenté, via un listener (écouteur), réagit à l'action sur le périphérique "Souris" et détectant le nombre de clics appliqué engage la procédure permettant d'afficher les coordonnées de la cellule pointée. Le problème est de savoir quels évènements sont suceptibles d'être détectés de manière pertinente et d'entrevoir les procédures de traitement ad-hoc. > > Merci ! > Bonne continuation. Francois Gatto --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
