[Résolu][Calc]Renvoie le nom de la cellule active

[Whiteneck]

Bonjour,

Via le nom d'une cellule, je voudrais qu'une macro ne s'exécuter que lorsque la cellule active est bien la cellule que j'ai nommée.
J'ai pensé, naïvement , faire quelque chose du genre :

Code : Tout sélectionner

If ThisComponent.currentSelection.Name = ThisComponent.sheets.getByName("FEUILLE").getCellRangeByName("CELLULE").Name Then
End If

Mais "Name" ne correspond apparemment à rien.
Je n'ai pas trouvé comment récupérer le nom que j'ai donné à la cellule pour le comparer avec celui de la cellule active.

Merci

[Piaf]

Bonjour
Tu disposes de l'événement de feuille Sélection modifiée.
En utilisant cet événement, ceci devrait le faire

Code : Tout sélectionner

Sub Main(oEv as Object)
Dim oDoc as Object, maFeuille as Object, maCellule as Object
	oDoc = thisComponent
	maFeuille = oDoc.CurrentController.ActiveSheet
	MaCellule = maFeuille.getCellRangeByName("CELLULE")
	If oEv.supportsService("com.sun.star.table.Cell") then
		If oEv.AbsoluteName = maCellule.AbsoluteName Then
			'Ta procédure ici
			maFeuille.getCellRangeByName("C3").Value = 10
		End If	
	End If	
End Sub

A+

[Whiteneck]

Merci Piaf.
Cela fonctionne mais saurais-tu m'expliquer pourquoi ne pas écrire ceci ? :

Code : Tout sélectionner

If ThisComponent.currentSelection.AbsoluteName= ThisComponent.sheets.getByName("FEUILLE").getCellRangeByName("CELLULE").AbsoluteNameThen
End If

et pourquoi ceci ?

Code : Tout sélectionner

If oEv.supportsService("com.sun.star.table.Cell") then

Bonne fin de journée

[Piaf]

Re

Code : Tout sélectionner

If ThisComponent.currentSelection.AbsoluteName=

Quel est le déclencheur de la procédure ?
Il te faut un déclencheur pour que la procédure soit exécutée.
Dans l'exemple, le déclencheur est le changement de sélection.
Maintenant tu peux très bien raccourcir

Code : Tout sélectionner

Sub Main(oEv as Object)
	If oEv.supportsService("com.sun.star.table.Cell") then
		If oEv.AbsoluteName = ThisComponent.sheets.getByName("FEUILLE").getCellRangeByName("CELLULE").AbsoluteName Then
         'Ta procédure ici
			ThisComponent.sheets.getByName("FEUILLE").getCellRangeByName("C3").Value = 10
		End If   
	End If   
End Sub

Code : Tout sélectionner

If oEv.supportsService("com.sun.star.table.Cell")

Limite l'exécution de la procédure à la sélection d'une seule cellule.
A+