Discussion :

[nogood1]

comment peux t on diminuer les lignes de code pour cacher tous les control sauf un ds un formulaire:

Dim ctl As Control
Me.chkP1.Visible = False
Me.chkP2.Visible = False
Me.chkP3.Visible = False
Me.chkS1.Visible = False
Me.chkS2.Visible = False
Me.chkS3.Visible = False
Me.chkT1.Visible = False
Me.chkT2.Visible = False
Me.chkT3.Visible = False

merci

[Lou Pitchoun]

Salut
Tu fais une boucle et tu testes ton controle si c'est pas celui que tu veux garder visible alors tu le caches.

Code :

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

1
2
3
4
5
6
7
Dim Frm as object
set Frm as application.Forms("NomduForm")
For Each Ctl in Frm.Controls
If teste_ok then
Ctl.visible = false
end if
next Ctl

J'ai pas testé mais c'est dans ce genre.

[Invité]

Salut

Dans le même style

Code :

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

1
2
3
4
5
6
7
8
 
Dim Ctrl as control
For Each Ctrl in me.Controls
     if typeof Ctrl is Chkbox then
            ctrl.visible = false
     end if
next ctrl
me.lecontrôlevisible.visible = true

Peut-être des erreurs je l'ai tapé comme cela sans faire de copier collé


Starec