UserForm Multipages

[Pierre]

Bonjour à tous,

J'ai un UserForm avec plusieurs pages et je souhaiterai que chaque page prenne le nom contenu dans une cellule de la feuille. Expl: pour la page1 le nom contenu dans la cellule A1 'Employé1' la page 2 le nom contenu dans la cellule B1 'Employé2' et ainsi de suite .

D'avance, merci pour vos réponses.
Amicalement
Pierre

 

[Hellboy]

Bonjour Pierre

Si j'ai bien compris, cette proposition devrait t'aider.

Private Sub UserForm_Initialize()
        Dim intNbPage        As Integer
        With Me.MultiPage1
                For intNbPage = 1 To .Pages.Count
                        .Pages(intNbPage).Caption = ThisWorkbook.Sheets('NomDelaFeuille').Cells(intNbPage, 1).Value
                Next intNbPage
        End With
End Sub

 

[Pierre]

Bonjour Hellboy,
Merci pour ta réponse, c'est tout à fait ce qu'il me fallait.
Je te souhaite une bonne soirée ainsi qu'à tout le Forum.
Amicalement
Pierre