"caption" d'une feuille MultiPage

[Benlo]

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

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

 

[Benlo]

Bonjour Hervé, le forum...

Merci beaucoup pour ta réponse et ta capacité à lire dans mes pensés pour deviner exactement ce que je veux faire...

Ta solution fonctionne parfaitement !


Merci !

 

[Benlo]

Re-bonjour Hervé, le forum,


Merci également pour les explications, ça aide énormément à s'améliorer en VBA....


Bye !