[Résolu] [Calc] Numéro de feuille en basic ?

[Claudie-Def]

Et pour finir,
j'ai trouvé ça là :

[

Résolu][Calc] numéro de page en basic ?

Mais ça ne marche pas.

Code : Tout sélectionner

Function maFeuille
maFeuille = thisComponent.CurrentController.ActiveSheet
end function

ça ne rend rien. G oublié un turc, maisKoi ?
Bon Week end et merci

[Piaf]

Bonjour
A priori, une fonction est faite pour renvoyer une valeur.
Si tu tiens à utiliser une fonction, tu peux tester

Code : Tout sélectionner

Sub NumFeuille
	MsgBox maFeuille
End Sub

Function maFeuille() as String
Dim oDoc as Object, curFeuille as Object
	oDoc = thisComponent
	curFeuille = oDoc.CurrentController.ActiveSheet
	For i = 0 To oDoc.Sheets.Count - 1
		laFeuille = oDoc.Sheets(i)
		If laFeuille.Name = curFeuille.Name Then
			maFeuille = "La feuille courante a l'index " & i
			Exit For
		End If
	Next i	
End Function

A+

[Dude]

Salut,

ça ne rend rien. G oublié un turc, maisKoi ?

Non, ça rend ce que tu lui demandes : à savoir un objet contenant la feuille active.
Si tu veux obtenir son numéro, il faut descendre sur une cellule de la feuille et interroger la propriété Sheet.
Exemple :

Code : Tout sélectionner

msgBox "Numéro de la feuille active : " & maFeuille.getRangeAddress().sheet

Comme toujours avant de tester, on commence d'abord par comprendre le mécanisme.
A savoir la structure d'un classeur : https://wiki.openoffice.org/wiki/FR/Doc ... readsheets