Afficher la bonne page d'un multipage

[sev]

Bonsoir ,
Je voudrais afficher des pages définies en fonction d'une couleur de cellule
lors de l'initialisation d'un userform.
Cela devrait être quelque chose commençant par ça :

[Private Sub UserForm_Initialize()

If Sheets("S").Range("E46").Interior.ColorIndex = 7 Then
Page1.Visible = True


    End If
    
    If Sheets("S").Range("E46").Interior.ColorIndex = 4 Then
Page2.Visible = True


    End If
    
    If Sheets("S").Range("E46").Interior.ColorIndex = 5 Then
Page3.Visible = True


    End If
End Sub
/CODE]


.

 

[Cousinhub]

Re : Afficher la bonne page d'un multipage

Bonjour,

le choix d'affichage d'une page d'un Multipage passe par la propriété .value du multipage...

Private Sub UserForm_Initialize()
If Sheets("S").Range("E46").Interior.ColorIndex = 7 Then
    Me.MultiPage1.Value = 0 'correspond à la page 1
ElseIf Sheets("S").Range("E46").Interior.ColorIndex = 4 Then
    Me.MultiPage1.Value = 1 'correspond à la page 2
ElseIf Sheets("S").Range("E46").Interior.ColorIndex = 5 Then
    Me.MultiPage1.Value = 2 'correspond à la page 3
End If
End Sub