Discussion :

[Touffe54]

"Saperlipopette", m'exclamais-je, il n'y a pas 5 minutes, quand, testant mon programme, je m'apercevais qu'il ne fonctionnait pas.

Voici :

J'ai créé un formulaire de saisie, incorporant un objet multipage. La dernière page est invisible par programme à l'ouverture du formulaire. Je souhaitais... je souhaite toujours, d'ailleurs, la rendre visible ou non suivant la valeur d'un bouton d'option (OBtTermine).

Le code tient en ces quelques lignes dans l'évènement change du bouton sus-nommé :

Code :

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

1
2
3
4
5
6
7
8
9
 
Select Case OBtTermine
       Case True
              MltPg.Value = 2   ' C'est la troisième page
              MltPg.SelectedItem.Visible = True
       Case False
              MltPg.Value = 2
              MltPg.SelectedItem.Visible = False
End Select

Le désarroi m'étreint, merci de m'éclairer !

[fring]

Bonjour,

Essaye comme ceci :

Code :

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

1
2
3
4
5
6
Select Case OBtTermine
       Case True
              MltPg.Pages(2).Visible = True
       Case False
              MltPg.Pages(2).Visible = False
End Select

[Touffe54]

Joie, çà marche !!!