[Calc] Afficher les boutons à l'ouverture

[serenodo]

Bonjour,

J'ai développé un classeur sous EXCEL.
Maintenant je voudrais apprendre le développement sous Ooo.
Je vais donc convertir le classeur en Ooo.
Mais je ne sais pas grand chose.

j'aimerai connaître le code pour masquer les boutons sur une feuille à l'ouverture du classseur.
et le code pour les afficher en cliquant sur un bouton.

Merci

[Bidouille]

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://forum.openoffice.org/fr/forum/su ... 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é.

[serenodo]

Bonjour Bidouille,


Je ferais attention la prochaine fois.

Merci pour votre compréhension.

[Piaf]

Bonsoir
Titre du fil Afficher les boutons à l'ouverture
demande

j'aimerai connaître le code pour masquer les boutons sur une feuille à l'ouverture du classseur.

Voir [Résolu][Calc]Activer / désactiver un ou plusieurs boutons par exemple.
Macro à l'ouverture et à la fermeture du document

Code : Tout sélectionner

Sub OuvertureDoc(oEv as Object)
Dim oDoc as Object, maFeuille as Object, oForm as Object
	oDoc = oEv.Source
	maFeuille = oDoc.Sheets.getByName("Feuille1")
	oForm = maFeuille.DrawPage.Forms.getByName("Formulaire")
	oForm.getByName("Bouton1").EnableVisible = False
	oForm.getByName("Bouton2").EnableVisible = False
	oForm.getByName("Bouton3").EnableVisible = False
	oForm.getByName("cmdAfficher").Label = "Afficher"
End Sub

La macro pour le bouton est la même que dans le fil cité.
A+