Discussion :

[gangsterus]

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 :

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
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

[fring]

Bonjour,

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

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 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 :

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

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

[gangsterus]

Merci beaucoup pour cette contribution, ça fonctionne!