Discussion :

[Rickhq]

Bonjour,

J'ai un formulaire [MenuPlaning] sur lequel il y a un contrôle Onglets "3 pages". Je veux en cliquant sur l'un de ces onglets [Page155] rendre invisible une zone de texte [texte7] qui ce trouve sur le formulaire [MenuPlaning]. Voici le code qui fonctionne pourtant sur un bouton ex... Mais rien ne ce passe quand je le met sur le clic de la page....

Code :

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

1
2
3
Private Sub Page155_Click()
Me.Texte7.Visible = False
End Sub

Merci à l'avance pour votre aide.

[RobiPMS]

Bonjour.
L’événement Sur clic est un événement associé à une page, pas à la zone d’onglets complète. Il ne se produit que si on clique à l’intérieur de la page, et pas lorsqu’on change d’onglet.
Dans ce cas, il faut utiliser l'événement "sur changement" du contrôle onglet lui-même (et pas de la page dans ce contrôle) et déterminer quelle est la page active dans le contrôle. Le code, à adapter selon le nom de ton contrôle onglet et le numéro de la page (la première page porte le numéro 0, la seconde porte le numéro 1, etc )

Code :

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

1
2
3
4
5
6
7
Private Sub CtlTab98_Change()
If Me.CtlTab98 = 2 Then
Me.Texte7.Visible = False
Else
Me.Texte7.Visible = True
End If
End Sub

Dans cet exemple, le contrôle onglet porte le nom CtlTab98. La valeur de CtlTab98 est 0 si la page active est la première, 1 si la page active est la deuxième. Ici, j'ai considéré que la page active est la troisième; j'ai donc mis Me.CtlTab98 = 2.
Cordialement

[Rickhq]

Gros Merci RobiPMS !

Très clair comme explication, fonctionne très bien.

Au plaisir!