Affichage Page d'un multipage (userform)

[Dominique]

Bonjour le forum
Dans un UserForm, j’ai un Multipage de 8 pages. Toutes les pages sont à Visible False.
Dans un ComboBox, j’ai les valeurs de 1 à 8 (1 à 8 Grande Moyenne Surface).
Lors du choix du nombre de GMS :
- j’annule les pages de 8 jusqu’à la valeur du ComboBox ,
- j’affiche les pages de la valeur du ComboBox jusqu’à 0 dans le code qui suit.
Private Sub ComboBox28_Click()
Dim i As Integer
For i = 8 To ComboBox28.Value Step -1 ' nombre de GMS total jusqu'à ComboBox28
VisModSupANN.MultiPage1.Pages(i - 1).Visible = False ' Visible à faux
Next i
For i = ComboBox28.Value To 1 Step -1 ' nombre de GMS
VisModSupANN.MultiPage1.Pages(i - 1).Visible = True ' Visible à vrai
Next i
' visualisation de la page 0 du multipage
End Sub
Je voudrais afficher la page 0 du multipage sans avoir à cliquer dessus.
Est ce possible ?
J'ai réduit au maximum la taille, dans la feuil1 il y a un bouton pour charger le UserForm.
Merci d'avance
Dominique [file name=Classeur_forum.zip size=19743]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur_forum.zip[/file]

 

[tontoncarton]

bonjour dominique

multipage1.value=0

non?

 

[Dominique]

Bonjour le forum, salut tontoncarton,

he si! he si!

mille merci

Dominique