[Résolu][Calc] Supprimer feuilles sur indice de début et fin

[chevalpat]

Bonjour

Je sais supprimer des feuilles à partir de leurs noms:

Code : Tout sélectionner

for i = nbf-1 to 14 step -1
		nom = lesfeuilles(i).name
		lesfeuilles.removebyname(nom)
	next i

mais c'est plutôt long dans l'exécution
existe t-il une commande pour supprimer x feuilles d'un coup en indiquant l'indice de début et de fin?
(ou bien une commande pour sélectionner x feuilles d'un coup ...)

Merci à vous

Patrice Chevalier

[Don Corleone]

Bonjour,

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche. Avez-vous remarqué comment étaient les autres questions postées ?

Lisez ce fil pour savoir quelle balise utiliser : http://user.services.openoffice.org/fr/ ... html#27295

N'oubliez pas que le terme "Macro" ou "OpenOffice" ne doit pas être employé car il est implicite. Essayer de synthétiser au mieux ce que vous cherchez à faire.

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances.

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.

Merci de votre collaboration.

[bm92]

Bonsoir,

Je sais supprimer des feuilles à partir de leurs noms:
mais c'est plutôt long dans l'exécution
existe t-il une commande pour supprimer x feuilles d'un coup en indiquant l'indice de début et de fin?
(ou bien une commande pour sélectionner x feuilles d'un coup ...)

Plutôt long, c'est quelle durée ? Et tu le fais souvent ?
Non, c'est la seule méthode possible.
Il est possible que le tableur s'efforce de remettre à jour les cellules à chaque suppression de page. Tu devrais bloquer toute action pendant la boucle : lockControllers, addActionLock. Et débloquer après. Recherche ces mots dans le forum pour voir des exemples.

[Churay]

Bonsoir

Autre piste pour bloquer le recalcul automatique : monDocument.enableAutomaticCalculation(false) (réactivation avec true)

J'avais vu un post qui en parle, mais je ne retrouve pas...

Par contre, c'est à la page 460 de Programmation OpenOffice.ogr 3.0 Macros OOoBasic et API de Bernard Marcelly et Laurent Godard...


cOOordialement

[Dude]

J'avais vu un post qui en parle, mais je ne retrouve pas...

Suprême de code http://user.services.openoffice.org/fr/ ... =15&t=1666 (dont on a fait un sommaire )

[jeanmimi]

Bonjour,
Pour faire ce que tu décris, j'utilise MultiPages :
http://fr.openoffice.org/Documentation/ ... index.html
Un clic sur l'icône, puis sur Supprimer. La boite de dialogue affiche tous les noms des pages, je sélectionne celles que je ne désire pas puis un clic pour valider.

[Pierre-Yves Samyn]

Bonjour

+1 pour ce qui a déjà été dit.

Sur ce point :

existe t-il une commande pour sélectionner x feuilles d'un coup ...

Tu peux utiliser la mémorisation de macro et la commande de menu Edition > Feuilles > Sélectionner (ci-dessous sélection des feuilles 1 et 3) :

Code : Tout sélectionner

sub PysSelectionnerFeuilles
dim document as object
dim dispatcher as object
dim args1(0) as new com.sun.star.beans.PropertyValue

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
args1(0).Name = "Tables"
args1(0).Value = Array(0,2)

dispatcher.executeDispatch(document, ".uno:SelectTables", "", 0, args1())

end sub

Su ce point :

existe t-il une commande pour supprimer x feuilles d'un coup en indiquant l'indice de début et de fin?

Donc non mais le tableau des noms de feuilles est ordonné en fonction de l'ordre des feuilles dans le classeur. Partant de cet indice tu peux trouver le nom...
Exemple de boucle créant un tableau avec tous les noms de feuille :

Code : Tout sélectionner

dim PysFeuilles as object
dim i as integer
dim PysNomFeuilles() as string

PysFeuilles = ThisComponent.sheets
i = PysFeuilles.count - 1

redim PysNomFeuilles(i)

for i = lbound(PysFeuilles.ElementNames) to ubound(PysFeuilles.ElementNames)
	PysNomFeuilles(i) = PysFeuilles.ElementNames(i)
next i

[chevalpat]

Merci pour toutes ces réponses, je vais explorer les différentes suggestions

Patrice Chevalier