[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 !
mickat
NOOuvel adepte
NOOuvel adepte
Messages : 23
Inscription : 06 oct. 2014 21:05

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

Message par mickat »

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

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 modification par mickat le 19 avr. 2018 20:03, modifié 1 fois.
LibreOffice Version: 6.1.4.2 (x64)
Win 10
Piaf
GourOOu
GourOOu
Messages : 5622
Inscription : 25 nov. 2011 19:07
Localisation : Guyane

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

Message par Piaf »

Bonjour
Pas forcement tout compris à ta macro.
Tu peux tester

Code : Tout sélectionner

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é 49 fois
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
mickat
NOOuvel adepte
NOOuvel adepte
Messages : 23
Inscription : 06 oct. 2014 21:05

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

Message par mickat »

Merci
je vais voir ça avec ton code, je vous tiens au courant
LibreOffice Version: 6.1.4.2 (x64)
Win 10
mickat
NOOuvel adepte
NOOuvel adepte
Messages : 23
Inscription : 06 oct. 2014 21:05

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

Message par mickat »

Merci à tous,
le code fonctionne !!
LibreOffice Version: 6.1.4.2 (x64)
Win 10
Répondre