problème de changement de titre dans un multipage dynamique

[francois91]

Bonjour,
J'ai un probleme avec mon multipage dynamique que j'ai créé. j arrive à le créer mais quand je souhaite modifier qq chose dans une page un message d'erreur concernant le nom de mon multipage apparait.
pourtant mon multige existe et a le bon nom (g changé le nom plein d fois et le nom de mon userform est le bon)
voir: rouge


Set Obj = Me.Controls.Add("forms.multipage.1") 'création du multipages
With Obj
.name = "mpages"
.left = 0
.top = 5
.width = 350
.height = 450
For i = 1 To Worksheets("feuil2").Cells(2, 1) 'ajout du bon nombre de pages
.Pages.Add
Next i
End With

For i = 1 To Worksheets("feuil2").Cells(2, 1)
😡UserForm4.mpages.Pages(i).Caption = Worksheets("feuil3").Cells(1 + i, 3)
Next i

vb surligne le dernier mot en rouge je ne comprend vraiment pas pq d'ailleur j'ai récupéré la méthode de modif du titre sur un autre programme dans lequel cela fonctionne très bien😕
Je pense le probleme vient du fait que mon multipage est dynamique mais bon..;
Si quelqu'un a une idée ou un explication je lui en serait très reconnaissant merci

 

[Pierrot93]

Re : problème de changement de titre dans un multipage dynamique

Bonsoir Francois

regarde le code ci dessous, attention le 1er numéro d'index de l'objet page est 0, donc faire une boucle de 0 au nombre que tu as dans ta cellule -1...

Ne pas oublier de déclarer les variables, cela evite bien souvent des erreurs.

Quand tu crées ton multipage, tu lui affectes une variable "set obj =", donc dans ce cas il est préférable de l'utiliser lorsque tu veux faire référence à cet objet..

Private Sub CommandButton1_Click()
[COLOR="red"][B]Dim obj As MultiPage, i As Byte[/B][/COLOR]
Set obj = Me.Controls.Add("forms.multipage.1") 'création du multipages
With obj
.Name = "mpages"
.Left = 0
.Top = 5
.Width = 350
.Height = 450
For i = 1 To 4 'ajout du bon nombre de pages
.Pages.Add
Next i
End With
For i = [B][COLOR="Red"]0 [/COLOR][/B]To Worksheets("feuil2").Cells(2, 1) [COLOR="red"][B]- 1[/B][/COLOR]
obj.Pages(i).Caption = Worksheets("feuil3").Cells(1 + i, 3)
Next i
End Sub

bonne soirée
@+

Edition : code testé chez moi, placé dans l'événement click d'un bouton de ce même USF.

 

[francois91]

Re : problème de changement de titre dans un multipage dynamique

Merci pour ton aide!!