Bonsoir,
yves dutrieux a écrit :
Bonsoir,
Le 31/01/07, michel <[EMAIL PROTECTED]> a écrit :
bonsoir,
Tout d'abord merci à François pour sa macro que j'ai essayée et qui
fonctionne
très bien. Cependant la solution apparait dans une boite de dialogue.
Peut-on récupérer la colonne et la ligne "en dur" dans deux cellules pour
permettre leur réutilisation ?
Merci.
Un coup d'oeil sur la fonction =CELLULE("type info";<ta cellule>)
devrait te
suffire ;-)
Recherche dans l'aide de calc avec le mot CELLULE.
Yves
Michel
En effet on pourrait utiliser une formule du genre =CELLULE("address").
Mais comme le mentionnait Michel, il récupère une feuille à base de
macros. Donc je suppose qu'il envisage éventuellement de récrire les
traitements sous OOo. Aussi je lui ai indiqué le genre de procédure à
appliquer.
En voici une autre, plaçant les coordonnées de la cellule active dans la
cellule active elle-même.
Sub cellXY
Dim sActiveSheetName as string
Dim splitColDescription(), splitRowDescription()
Dim sCellXY as string
sActiveSheetName =
ThisComponent.getCurrentController().getActiveSheet().getName()
splitColDescription()=split(ThisComponent.getCurrentSelection.ColumnDescriptions(0),
" ")
splitRowDescription()=split(ThisComponent.getCurrentSelection.RowDescriptions(0),
" ")
sCellXY = splitColDescription(1) & splitRowDescription(1)
'MsgBox "Feuille active = " & sActiveSheetName & chr(10) & "Cellule
active = " & sCellXY
ThisComponent.getCurrentController().getActiveSheet().getCellRangeByName(sCellXY).String
= sCellXY
End Sub
Le nom de la colonne se trouve dans splitColDescription(1)
le numéro de ligne dans splitRowDescription(1).
Partant de là ... à toi de jouer Michel ;)
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]