Action et onglet de Multipage

Bonjour,

Je souhaite modifier la taille de mon contrôle Multipage quand je change de page:
Exemple:

On a un contrôle Multipage avec les pages 1,2,3.
Sur chaque page, on a une case à cocher. Si elle est True, alors la taille du multipage est 300, si elle est False, la taille du multipage est 200.
En passant de page en page, je souhaite que la taille du multipage se mette automatiquement en fonction du cochage ou non.

J'ai essayé les codes suivants:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub MultiPage1_Change()   If MultiPage1.SelectedItem.Index=0 And Chk1 = True Then   MultiPage1.Height = 300   Else   MultiPage1.Height = 200   End If   If MultiPage1.SelectedItem.Index=1 And Chk2 = True Then   MultiPage1.Height = 300   Else   MultiPage1.Height = 200   End If   End Sub

---

Quelqu'un a-t-il une solution à m'apporter?

Merci d'avance

Bonjour,

J'ai testé le code ci-dessous et cela fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub MultiPage1_Change() Select Case Me.MultiPage1.SelectedItem.Index Case 0 If Me.CheckBox1 = True Then Me.MultiPage1.Height = 100 Else Me.MultiPage1.Height = 50 End If Case 1 If Me.CheckBox2 = True Then Me.MultiPage1.Height = 100 Else Me.MultiPage1.Height = 50 End If End Select End Sub

---

J'ajouterais également un code dans l'événement des CheckBox

Code:

---

1 2 3 4 5 6 7

Private Sub CheckBox1_Click() If Me.CheckBox1 = True Then Me.MultiPage1.Height = 100 Else Me.MultiPage1.Height = 50 End If End Sub

---

Merci beaucoup pour cette contribution, ça fonctionne!

:king: