Modifier caption sur le multipage

Bonjour

J'essaye de modifier le titre des onglets multipage.

Il y a un compteur qui indique le nombre de page.

Une fois que l'ajout des pages dans le multipage est fait. Je voudrais que le titre soit modifier en fonction de la feuille active.

Je ne sais pas trop si je suis clair.

For i = 1 To Cpt - 1

MultiPage1.Pages.Add

Next i
'If UserForm3.MultiPage1.Page1 = True Then
'UserForm3.MultiPage1.Page1.Caption = ActiveSheet.Range("J2")
'Else
'End If

'If UserForm3.MultiPage1.Page2 = True Then
'UserForm3.MultiPage1.Page2.Caption = Sheets(2).Range("J2")
'Else
'End If

Bonjour,

à tester,

For i = 1 To Cpt - 1
    MultiPage1.Pages.Add
    Select Case i
        Case 1: UserForm3.MultiPage1.Page1.Caption = ActiveSheet.Range("J2")
        Case 2: UserForm3.MultiPage1.Page2.Caption = Sheets(2).Range("J2")
    End Select
Next i

C'est presque ça mais je voudrais qu'il fasse ça pour toutes les feuilles présent dans le classeur.

Là j'arrive a mettre e nom de la feuille 3 au niveau de la page 3 du multipage.

Mais la page 2 et 1 reste en par défaut, elle ne prenne pas le nom.

re,

la première page a l'index 0,

il faudrait peut être modifier comme ça,

For i = 0 To Cpt - 1
    Select Case i
        Case 0: UserForm3.MultiPage1.Page1.Caption = ActiveSheet.Range("J2")
        Case 1: UserForm3.MultiPage1.Page2.Caption = Sheets(2).Range("J2")
    End Select
    MultiPage1.Pages.Add
Next i

mais sans voir comment l'ensemble est réalisé, c'est difficile de donner un avis juste.

J'ai réussi à trouver Merci

Une dernière demande et j'arrête.

For i = 1 To Cpt + 1

MultiPage1.Pages.Add

UserForm3.MultiPage1.Pages.Item(i).Caption = Sheets(i).Range("J2")
If Sheets(i).Range("J2").Value = 1 Then
UserForm3.MultiPage1.Pages.Item(i).Visible = False
Else
End If

Est ce que on peut mettre une condition pour qui dire quand la valeur de J2 = 1 alors rendre invisble la page qui correspond.

J'ai fait un code et je voulais savoir si il tiens la route.

re,

à tester,

For i = 1 To Cpt + 1
    MultiPage1.Pages.Add

    UserForm3.MultiPage1.Pages.(i).Caption = Sheets(i).Range("J2")
    If Sheets(i).Range("J2").Value = 1 Then
        UserForm3.MultiPage1.Pages(i).Visible = False
    End If
Next

Re,

ça ne marche pas. Il ne fait rien.

L'onglet qui est sensé se masquer reste actif et visible

re,

voici un exemple à partir d'un Multipage qui a été fait à la mimine sur le UF

Merci pour ton fichier.

Par contre cela ne marche pas, j'ai l'impression qu'il ne prends pas en compte la condition.

J'ai mis des pauses pour voir où il ne marche pas.

For i = 1 To Cpt + 1

MultiPage1.Pages.Add

UserForm3.MultiPage1.Pages(i).Caption = Sheets(i).Range("J2")     'là ça marche très bien
If Sheets(i).Range("J2").Value = 1 Then 'pas de prise en compte du if
UserForm3.MultiPage1.Pages(i - 1).Visible = False 'comme la condition ne marche pas, le reste ne marche pas.
Else
End If

Next i