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