Discussion :

[Mobydick_62]

Bonsoir à tous,
Nouvel inscrit j'espère ne pas me tromper pour l'ouverture d'une discussion.
Travaillant sous macro d'open office 3 j'ai créé une boite de dialogue qui contient entre autres une case à cocher et un textField. La propriété du textFiel est inactif (on ne peut pas écrire dedans).
Je voudrais lorsque je coche cette case à cocher que le textField devienne actif.
Je pense qu'il faut faire appel à un gestionnaire d'événement qui, si je coche ma case, le contrôle devienne actif.
Malgré mes recherches sur les différents Forum je n'ai rien trouvé.
Merci d'avance.

[Mobydick_62]

J'ai trouvé. Pour ceux que ça intéresse.
J'associe cette macro sur le ou la case à cocher pour gérer dynamiquement les contrôles ma boite.

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
19
20
21
 
Sub GestionControles
  Dim oCheck As Object
  Dim ObjLst As Object
  Dim ObjJtf As Object
  'Définit la case à cocher dans la boîte de dialogue
  oCheck = FrmEssai.getControl("caseACocher1")
  ObjLst = FrmEssai.GetControl("liste1") 
  ObjJtf = FrmEssai.GetControl("textFiel1") 
 
  'Vérifie le statut:
  Select Case oCheck.State 
    Case 0 REM------------------------La case n'est pas cochée
      ObjLst.Model.Enabled = False REM le contrôle n'est pas actif
      ObjJtf.Model.Enabled = False  REM le contrôle n'est pas actif
 
    Case 1 REM------------------------La case est cochée
      ObjLst.Model.Enabled = True REM le contrôle devient actif
      ObjJtf.Model.Enabled = True  REM le contrôle devient actif
  End Select
End Sub