Discussion :

[mawi]

Bonjour,

Voilà, j'ai un formulaire avec des listes déroulantes.
En dessous j'ai un onglet avec 6 pages.
Je voudrais que lorsque je passe sur une autre page, les listes déroulantes deviennent non visibles (en fonction des pages actives, ce ne sont pas les mêmes listes).

Voilà mon code :

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
22
23
24
25
26
27
28
29
30
 
Private Sub CtlTab0_Change()
If Me.Données_générales.Enabled = True Then
    Me.Debut.Visible = True
    Me.Fin.Visible = True
    Me.Donnees.Visible = True
End If
 
If Me.Accompagnement.Enabled = True Then
    Me.Debut.Visible = True
    Me.Fin.Visible = True
    Me.Donnees.Visible = True
End If
 
If Me.Diplômes.Enabled = True Then
    Me.Debut.Visible = True
    Me.Fin.Visible = True
    Me.Donnees.Visible = False
End If
 
If Me.Cohortes.Enabled = True Then
    Me.Donnees.Visible = True
    Me.Debut.Visible = False
    Me.Fin.Visible = False
Else
    Me.Debut.Visible = True
    Me.Fin.Visible = True
End If
 
End Sub

Mais ça ne fonctionne pas, je crois que la fonction Enabled n'est pas appropriée pour dire si on est sur la page active ou pas.

J'espère que j'ai été claire dans mes explications..

Merci d'avance pour vos réponses!

Mawi

[FreeAccess]

Bonjour,
Voici un petit exemple, avec un formulaire contenant deux ZDL (Modifiable1 et Modifiable2)
Sur ce même formulaire un contrôle Onglet (CtlTab4), comportant 3 pages.
Sur l'événement 'Sur changement' de CtlTab4, tu tape le code suivant:

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
Private Sub CtlTab4_Change()
Select Case CtlTab4()
    Case 0
    Me.Modifiable1.Visible = True
    Me.Modifiable2.Visible = True
    
    Case 1
    Me.Modifiable2.Visible = False
    Me.Modifiable1.Visible = True
    
    Case 2
    Me.Modifiable2.Visible = True
    Me.Modifiable1.Visible = False
End Select

End Sub

Ceci est un exemple de base, après il suffit de l'adapter à ton application
Bonne continuation.

[Invité]

Salut Mawi,

Le code à utiliser est le suivant :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CtlTab0_Change()
ChoixOnglet = Me.CtlTab0.Value + 1
...
Select Case ChoixOnglet
    Case 1 ' Page 1 sélectionnée
 
    Case 2 ' Page 2 sélectionnée
End Select

Voilà

[FreeAccess]

Re,
Dans ce cas, cette ligne n'est pas utile

Code :

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

ChoixOnglet = Me.CtlTab0.Value + 1

Si la première page à un index à zéro (0)

[mawi]

Merci pour vos réponses!

J'ai fait ça :

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
22
23
24
25
26
27
28
29
30
 
Private Sub CtlTab0_Change()
 
Select Case CtlTab0()
    Case 0
    Me.Debut.Visible = True
    Me.Fin.Visible = True
    Me.Donnees.Visible = True
 
    Case 1
    Me.Debut.Visible = True
    Me.Fin.Visible = True
    Me.Donnees.Visible = True
 
    Case 2
    Me.Debut.Visible = True
    Me.Fin.Visible = True
    Me.Donnees.Visible = False
 
    Case 3
    Me.Donnees.Visible = True
    Me.Debut.Visible = False
    Me.Fin.Visible = False
 
    Case 4
 
    Case 5
 
End Select
End Sub

et ça fonctionne!

merci encore!

[FreeAccess]

Re,
Tu peux modifier ton code par celui-çi, car la sélection de ta page 0 et 1 est identique :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Select Case CtlTab0()
    Case 0 , 1
    Me.Debut.Visible = True
    Me.Fin.Visible = True
    Me.Donnees.Visible = True
    
    Case 2
    Me.Debut.Visible = True
    Me.Fin.Visible = True
    Me.Donnees.Visible = False
....
....

Bonne continuation.