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 :
et aussi ceci :
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
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.
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
Avez-vous un lien utile ou une idée ? svp
Merci d'avance
Bonne journée !
Partager