Discussion :

[cemyr]

Bonjour,

J'ai une vingtaine de cases à cocher et voudrait faire le même type de procédure à chaque cochage ou décochage de case.

Par exemple si l'utilisateur coche coch1 on affiche une zone de texte appelée txt1 et si on décoche coch1 on rend invisible txt1. Idem si on coche coch2 ou coch 3 ....

Y'a t-il un moyen de faire une procédure avec le numéro de la case à cocher en paramètre (histoire d'éviter de répéter 20 fois la même chose dans mon programme)?

Est-ce que vous voyez ce que je veux dire?

Merci,

[loufab]

Bonjour,

En effet tu peux utiliser une méthode comme celle-ci :

Dans un module Standard tu écris ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Public Function CocheMaCase()
  Dim frm As Form
  Dim ctrl As Control
  Set ctrl = Screen.ActiveControl
  Set frm = Screen.ActiveForm
  'repère le h pour extraire la suite, qui devrait être le N°
  frm.Controls("Txt" & Right(ctrl.Name, Len(ctrl.Name) - InStr(1, ctrl.Name, "h"))).Visible = ctrl.Value
  Set frm = Nothing
End Function

puis tu sélectionnes ensuite toutes tes cases à cocher, dans les propriétés, tu sélectionnes Sur MAJ ou Sur Clic, et tu écris :

Code :

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

=CocheMaCase()

Ainsi toutes tes cases auront cette fonction pour l'événement choisi.

Cordialement,

[cemyr]

Merci ca fonctionne nickel