Discussion :

[Philippe_shelby]

Bonjour à tous,

Contexte :
1 UserForm avec un multipage contenant 6 pages ("Principale", "Pos1", "pos2", "pos3", "pos4", "pos5")

Sur la page "Principale", j'ai 5 Option button.

J'aimerais que :

lorsque j'active option button 1, seul les pages "Principale" et "Pos1" soient visibles.
lorsque j'active option button 2, seul les pages "Principale", "Pos1" et "pos2" soient visibles.
et ainsi de suite pour mes 5 bouton.

Je saurais faire si je passais par un bouton de validation, mais j'aimerais que cela se fasse en live, à chaque clic sur chaque option button.

Merci pour vos réponses.

Philippe.

[Philippe Tulliez]

Bonjour,
Pour rendre visible ou masquer la page d'un contrôle MutliPage c'est

Code :

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

Me.MultiPage1.Pages(1).Visible = False

Sachant que la première page est indexée à 0 et si tes contrôles OptionButton se nomme Nom1 jusque Nom5, il te suffit de faire une boucle.

Je te conseille la lecture du tutoriel Utiliser les contrôles dans un UserForm, en VBA Excel où tu trouveras des explications sur les différentes propriétés et méthodes des contrôles qui te concerne et comment parcourir leurs collections

[Philippe_shelby]

Merci pour ta réponse.

Rendre une page visible ou non, là j'arrive à m'en sortir.

J'avais déjà fait un tour sur le lien que vous m'avez donné et c'est vrai qu'il est très intéressant.

Malheureusement, étant donné que je débute en VBA, la réponse ne m'aide pas beaucoup.

Faire la boucle sur les Option button, je pense que je devrais y arriver, enfin j'espère, par contre c'est tout le reste qui me pose un problème. Je pourrais peut-être affecter les conditions d'affichage a chaque click de chaque Option button, mais je trouve que cela sera lourd au niveau du code et pas très pro.

Admettons que j'arrive à faire cette boucle, dois-je écrire cela dans un module que j'affecte à chaque Option button ?

Merci pour votre aide.

[Philippe Tulliez]

Bonjour,
Voilà la procédure à placer dans le UserForm concerné

Code :

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

1
2
3
4
5
6
Private Sub CtrlOption(number As Byte)
 Dim n As Byte
 For n = 1 To Me.MultiPage1.Pages.Count - 1
  Me.MultiPage1.Pages(n).Visible = n <= number
 Next
End Sub

Cette procédure doit être appelée par les procédures événementielles Click des contrôles OptionButton concernés
Voici une exemple pour les deux premiers (Il y a en a donc 5)

Code :

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

1
2
3
4
5
6
Private Sub OptionButton1_Click()
 CtrlOption 1
End Sub
Private Sub OptionButton2_Click()
 CtrlOption 2
End Sub

Idéalement, on aurait pu passer par un module de classse mais si tu débutes, il vaut mieux en rester là.

[Philippe_shelby]

Merci beaucoup, c'est juste.....Parfait.

Juste pour ma culture personnelle, en quoi consiste à " passer par un module de classe" ?

[Philippe Tulliez]

Bonjour,

Juste pour ma culture personnel, en quoi consiste " passer par un module de classe" ?

Lorsque l'on insère un module ou un UserForm on a la possibilité d'insérer un module classe
En gros, un module de classe est un module qui permet de définir un nouvel objet
Voici quelques liens sur la question (pas eu le temps de les mettre en forme
http://excel.developpez.com/faq/?page=ModuleClasse
http://sinarf.developpez.com/access/vbaclass/
http://fauconnier.developpez.com/art...neral/classes/
http://tissotemmanuel.developpez.com...les-de-classe/
http://www.developpez.net/forums/d62...e/#post3711643

[Philippe_shelby]

Ah ouais !!! c'est vrai que c'est un peu compliqué pour un néophyte comme moi.

Je vais encore un peu attendre avant d'y passer

En tous cas, merci pour les infos. Je passe ce topic en résolu.