Discussion :

[ivanG]

Bonjour à tous !

J'ai un MultiPage qui comporte 4 onglets. Chaque onglet n'a pas le meme nombre de bouton d'action, ListBox,...

Est-ce que c'est possible de modifier la dimension des onglets ?

J'ai pour l'instant fait ca :

Code :

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

1
2
3
 
Me.MultiPage1.pages(1).Height = 200
Me.MultiPage1.pages(0).Width = 500

et aussi ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If Me.MultiPage1.pages(0).Name = ActiveSheet.Name Then 'Sachant que le nom des onglets et les onglets du MultiPage sont liés aux feuilles Excel
     With Me.MultiPage1.pages(0)
            .Height = 200
            .Width = 500
      End With
End If
If Me.MultiPage1.pages(1).Name = ActiveSheet.Name Then
     With Me.MultiPage1.pages(1)
            .Height = 200
            .Width = 500
      End With
End If

Malheureusement ca ne fonctionne pas. Ces deux codes modifient la dimension des MultiPage une fois seulement. Si je change d'onglet MultiPage, rien ne se passe.

Avez-vous un lien utile ou une idée ? svp

Merci d'avance

Bonne journée !

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub MultiPage1_Change()
Select Case MultiPage1.Value
Case 0
  Me.MultiPage1.Pages(MultiPage1.Value).Height = 200
  Me.MultiPage1.Pages(MultiPage1.Value).Width = 500
Case 1
    Me.MultiPage1.Pages(MultiPage1.Value).Height = 200
     Me.MultiPage1.Pages(MultiPage1.Value).Width = 500
End Select
End Sub

[ivanG]

J'ai essayé ton code mais ca ne fonctionne pas... La ligne 4 me renvoie le message d'erreur suivant :
"Propriété ou méthode non gérée..."

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub MultiPage1_Change()
Select Case MultiPage1.Value
Case 0
  Me.MultiPage1.Height = 20
  Me.MultiPage1.Width = 50
Case 1
    Me.MultiPage1.Height = 250
     Me.MultiPage1.Width = 150
End Select
End Sub

[ivanG]

Merci beaucoup rdurupt ! Ca fonctionne parfaitement bien !

Bon apres-midi !