[Résolu][Calc] Dérouler une feuille

[eriquesse44]

Bonjour à tous et toutes,

Après bien des recherches, je sèche toujours sur ce problème.
- dans une feuille (de + 300 lignes), je souhaite (via l'utilisation d'un combobox) afficher la ligne 200 par exemple.

Pb: je ne trouve pas la fonction qui permet de dérouler ou "scroller" la feuille vers le haut afin d'atteindre une ligne particulière (la 200ème)

J'ai tenté createTextCursor -> pas de mouvement.

Si l'un ou l'une d'entre vous à la solution merci par avance de votre aide.

Dans l'attente de vous lire ...

[Dude]

Salut,

L’anglicisme "scroller" n'existe pas. Le terme français est dérouler.
Corrige ton titre en ce sens.

je souhaite (via l'utilisation d'un combobox) afficher la ligne 200 par exemple.

Nul besoin de macro pour ça, il suffit d'utiliser la zone de nom et de taper la coordonnée de la cellule que tu veux atteindre.

[eriquesse44]

Tout d’abord merci aux modo pour la correction du titre
J'ai aussi modifié ma signature et le titre. (je ne suis pas du tout attaché aux anglicismes mais je n'avais pas le terme français.)

Nul besoin de macro pour ça, il suffit d'utiliser la zone de nom et de taper la coordonnée de la cellule que tu veux atteindre.

Par contre pour des raisons d'ergonomie de la feuille (utilisée régulièrement par plus d'une centaine de personnes) je souhaite, en un clic, voir apparaître une zone particulière; ce qui est beaucoup plus rapide que de taper un texte (le nom de la zone) et la touche entrée

Si cela n'est pas possible, je transformerai mon idée:
- générer autant de feuilles que nécessaire (je sais faire, sachant que le nombre est limité à
- rendre active la feuille choisie lors de l'utilisation du combobox.
- Mais il me revoir toutes mes formules.

Il y a toujours une solution, mais je souhaite mettre en œuvre celle ci ... pour la première fois. (c'est triste une journée où l'on apprends rien )

[Dude]

je souhaite, en un clic, voir apparaître une zone particulière

Tu mets un hyperlien qui emmène à l'endroit voulu.

[eriquesse44]

Tu mets un hyperlien qui emmène à l'endroit voulu.

Merci pour cette réponse qui me donne une piste intéressante.

Si ma question (utilisation d'un combobox) n'a pas de réponse j'utiliserai cette solution.

[Piaf]

Bonsoir
Pour le fun avec une zone de liste à la place d'une boite combinée.

Code : Tout sélectionner

Option Explicit
Sub Main
Dim oDoc as Object, maFeuille as Object, oForm as Object, maZone as Object
Dim Ligne as Long, oCells as Object
	oDoc = thisComponent
	maFeuille = oDoc.CurrentController.ActiveSheet
	oForm = maFeuille.DrawPage.Forms.getByName("Formulaire")
	If oForm.getByName("mesLignes").CurrentValue = "" Then Exit Sub
	maFeuille = oDoc.Sheets.getByName(Split(oForm.getByName("mesLignes").CurrentValue,"/")(0))
	Ligne = CLng(Split(oForm.getByName("mesLignes").CurrentValue,"/")(1)) - 1
	maZone = maFeuille.getCellByPosition(0,Ligne)
	oDoc.CurrentController.select(maZone)
	oCells = ThisComponent.CreateInstance("com.sun.star.sheet.SheetCellRanges")
    oDoc.CurrentController.Select(oCells)
	oDoc.CurrentController.FirstVisibleRow = Ligne
End Sub

A+

[eriquesse44]

Merci piaf

C'est exactement ce que je cherchais
Et avec le fichier -> c'est royal

Bonne nuit ... vu le décalage