Discussion :

[Horizon1956]

Bonjour
Je débute en basic openoffice et je n'arrive pas à trouver comment déactiver /Activer un bouton que j'ai inséré dans une page calc ;
J'ai un bouton BT1 .Lorsque je clique dessus j'ai une macro qui s’exécute et effectue un certains nombre d’opérations . J'aimerais que cette série d’opérations se termine par une désactivation du bouton;
Je n'arrive pas à réaliser cette dernière opération. pourriez vous m'explique comment avoir accès via Basic à ce bouton
Par avance merci

[Mobydick_62]

Bonjour,

Ci-dessous un exemple sous Calc.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Main
 Dim oFeuille As Object 
 Dim oMonBouton As Object
 Dim oLesFormulaires As Object, oUnFormulaire As Object, oVueCtrl As Object
 oFeuille = ThisComponent.getSheets.getByName("Feuille1")
 oLesFormulaires = oFeuille.DrawPage.Forms
 oUnFormulaire = oLesFormulaires.getByName("Formulaire")
 oMonBouton = oUnFormulaire.getByName("Bouton1")
 oVueCtrl = ThisComponent.CurrentController.getControl(oMonBouton)
 
 MsgBox ("Exécution du code", 64, "INFO")
 
 'Désactivation du bouton
 oMonBouton.Enabled = False
 
 MsgBox ("Le bouton à été désactivé", 64, "INFO")
 
End Sub

Pour explorer les propriété du bouton je te conseil d'utiliser l'outil Xray

Cordialement