[Résolu][Calc]Statut case à cocher toujours non coché

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur: Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !

[Résolu][Calc]Statut case à cocher toujours non coché

Messagepar mickat » 16 Avr 2018 15:35

Bonjour,

Je teste une macro pour lier deux case à cocher.
Pour commencer j'ai fait ce test : Je clique sur une case à cocher et j'indique par une message box le statut de la case à cocher...
Hors, le statut est toujours à 0 ( non coché )....
Quelqu'un peut-il m'indiquer pourquoi cette bizarrerie existe ??? !!
Merci pour votre aide !!

Voici le code :
Code : Tout sélectionner   AgrandirRéduire
REM  *****  BASIC  *****

Sub Main
   DialogLibraries.LoadLibrary("Standard")
    oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
   
    oDialog1.execute   

End Sub

Sub case1
   DialogLibraries.LoadLibrary("Standard")
    oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
    case_1 = oDialog1.getControl("case1")
    Select Case case_1.state
       Case 0
          MsgBox case_1.State
       Case 0
          MsgBox case_1.State
    End Select
             
End Sub
Sub case2
   DialogLibraries.LoadLibrary("Standard")
    oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
    case_2 = oDialog1.getControl("case2")
    Select Case case_2.state
       Case 0
          MsgBox case_2.State
       Case 0
          MsgBox case_2.State
    End Select
             
End Sub
Pièces jointes
Capture.PNG
Dernière édition par mickat le 19 Avr 2018 19:03, édité 1 fois.
LibreOffice Version: 6.0.4.2 (x64)
Win 10
mickat
NOOuvel adepte
NOOuvel adepte
 
Message(s) : 22
Inscrit le : 06 Oct 2014 20:05

Re: [Calc]Statut des case à cocher indique toujours non coch

Messagepar Piaf » 16 Avr 2018 17:19

Bonjour
Pas forcement tout compris à ta macro.
Tu peux tester
Code : Tout sélectionner   AgrandirRéduire
Dim oDlg as Object
Sub Main
   DialogLibraries.LoadLibrary("Standard")
    oDlg = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
    oDlg.execute   
End Sub

Sub Statecase(oEv as Object)
   Select Case oEv.Source.Model.Name
      Case "Case1"
         MsgBox("Etat Case1 : " & oEv.Source.Model.State & Chr(13) & "Etat Case2 : " & oDlg.getControl("Case2").Model.State)
      Case "Case2"
         MsgBox("Etat Case1 : " & oDlg.getControl("Case1").Model.State & Chr(13) & "Etat Case2 : " & oEv.Source.Model.State)
   End Select   
End Sub
A+
Pièces jointes
CAC.ods
(10.63 Kio) Téléchargé 13 fois
Libre Office Version: 5.4.7 et Apache OpenOffice 4.1.5 Sur Xubuntu 16.04
Piaf
GourOOu
GourOOu
 
Message(s) : 5333
Inscrit le : 25 Nov 2011 19:07
Localisation : Guyane

Re: [Calc]Statut des case à cocher indique toujours non coch

Messagepar mickat » 18 Avr 2018 06:46

Merci
je vais voir ça avec ton code, je vous tiens au courant
LibreOffice Version: 6.0.4.2 (x64)
Win 10
mickat
NOOuvel adepte
NOOuvel adepte
 
Message(s) : 22
Inscrit le : 06 Oct 2014 20:05

Re: [Calc]Statut des case à cocher indique toujours non coch

Messagepar mickat » 19 Avr 2018 19:02

Merci à tous,
le code fonctionne !!
LibreOffice Version: 6.0.4.2 (x64)
Win 10
mickat
NOOuvel adepte
NOOuvel adepte
 
Message(s) : 22
Inscrit le : 06 Oct 2014 20:05


Retour vers Macros et API

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 5 invité(s)