"caption" d'une feuille MultiPage

B

Benlo

Guest
Bonjour le forum,

Je cherche, lors de l'initialisation du userform, à donner une valeur précise au 'caption' des pages d'un contrôle multipage.


Par exemple, pour un optionbutton j'utilise le code suivant :

OptionButtonAnnee1.Caption = Sheets('Menu').Range('AA2').Value

Donc lorsque le userform s'ouvre, le libellé du bouton prend la valeur contenue dans la cellule AA2...


J'ai essayé ceci avec le multipage :

Me.MultiPage1.Caption = Sheets('Menu').Range('AA2').Value

mais celà ne fonctionne pas.

Est-ce que quelqu'un a une idée pour me donner un coup de pouce ?

Merci d'avance !
 

Hervé

XLDnaute Barbatruc
Supporter XLD
Bonjour benlo, le forum

Un multipage n'a pas de propriété caption par lui-meme, seule ces onglets peuvent changer de nom.

si c'est le nom de l'onglet que tu veux modifier, essaye ceci :

Me.MultiPage1.Pages.Item(0).Caption = Sheets('Menu').Range('AA2').Value

pages = collection des onglets du multipage
item=élément de la collection , soit une page
0=numéro d'index du premier onglet du multipage, 1 pour le second


Si tu veux faire une boucle pour renommer les onglets, tu peux utiliser ceci :

For i = 0 To Me.MultiPage1.Count - 1
Me.MultiPage1.Pages.Item(i).Caption = 'toto' & i + 1
Next i

salut
 

Discussions similaires

Réponses
1
Affichages
586
Réponses
7
Affichages
745

Statistiques des forums

Discussions
300 716
Messages
1 986 639
Membres
209 554
dernier inscrit
Khaay