[Résolu] nommer une cellule

[Yaone]

Bonjour,

Dans Calc, comment on fait pour nommer une cellule ?
Et ensuite pouvoir récupérer ce nom et le style de cette cellule ?

Merci.

[Dude]

Code : Tout sélectionner

Sub NommerPlageCellules
	' Définir la plage A1:J10 Comme Test
	oDoc = ThisComponent
	oFeuille = oDoc.Sheets.getByName("Feuille1")
	oPlage = oFeuille.getCellRangeByPosition(0, 0, 9, 9) 
	oCell1 = oFeuille.getCellByPosition(0, 0)
	vConv1 = oDoc.createInstance("com.sun.star.table.CellAddressConversion")
	vConv1.Address = oCell1.getCellAddress
	sCell1 = vConv1.UserInterfaceRepresentation
	oCell2 = oFeuille.getCellByPosition(9, 9)
	vConv2 = oDoc.createInstance("com.sun.star.table.CellAddressConversion")
	vConv2.Address = oCell2.getCellAddress
	sCell2 = vConv2.UserInterfaceRepresentation
	iInt = InStr ( sCell2, "." )
	sStr = sCell1 & ":" & Right ( sCell2, Len (sCell2) - iInt )
	oDoc.NamedRanges.addNewByName("Test", sStr, _
	   createUnoStruct("com.sun.star.table.CellAddress"), 0 )
End Sub

[Yaone]

Mouais.
Mais c'est pour une zone ça et non pour une cellule ?

Mais plusieurs cellules éloignées ne peuvent pas avoir le même nom ?

[Dude]

Mouais.
Mais c'est pour une zone ça et non pour une cellule ?

Faut tout te prémacher ou quoi ? Et si tu faisais un petit effort de compréhension :

Code : Tout sélectionner

Sub NommerCellule
   ' Définir la cellule A1 comme TestA1
   oDoc = ThisComponent
   oDoc.NamedRanges.addNewByName("TestA1", "A1:A1", _
      createUnoStruct("com.sun.star.table.CellAddress"), 0 ) 
End Sub

Mais plusieurs cellules éloignées ne peuvent pas avoir le même nom ?

Non les cellules doivent être contigües

[Yaone]

Merci ^^"

Non les cellules doivent être contigües

Monde cruel