Bonjour,

Dans une feuille Calc, je veux masquer une partie des éléments de manière provisoire. J'ai donc créé par le biais de la procédure ci-dessous un rectangle qui se positionne là où je le souhaite avec les dimensions attendues.

Dim oDocument as Object Dim oFeuilSimu as Object Dim oPageSimu as Object Dim dimensionForme As New com.sun.star.awt.Size Dim positionForme As New com.sun.star.awt.Point Dim oForme As Object

Sub Masquer()

oDocument = thisComponent oFeuilSimu = oDocument.Sheets.getByName( "Simu" ) oPageSimu = oFeuilSimu.DrawPage

dimensionForme.Width = 15820 dimensionForme.Height = 46550 positionForme.x = 12950 positionForme.y = 5700

oForme = oDocument.createInstance( "com.sun.star.drawing.RectangleShape" ) oForme.Size = dimensionForme oPageSimu.add( oForme ) oForme.Position = positionForme oForme.Name = "Rectang1"

End Sub

Ensuite, je veux pouvoir supprimer cette forme et j'ai écrit la procédure suivante en m'inspirant du livre de Bernard et Laurent "Programmation OpenOffice" :

Sub Afficher()

oPageSimu = oFeuilSimu.DrawPage oForme = FindObjectByName( oPageSimu, "Rectang1" ) oDocument.CurrentController.Select( oForme ) oPageSimu.remove( oForme )

End Sub

La macro s'arrête sur la ligne oForme = FindObjectByName( oPageSimu, "Rectang1" ) avec le message : "Sous-procédure ou procédure de fonction non définie".

Est-ce que quelqu'un peut m'aider à résoudre ce problème ?

D'avance merci.

Michel GRIMAULT