affichage chronologique multpage

[wolf2012]

Bonjour tous le monde
Bonjour, le Forum

Je veux que lorsque je clique sur un boutton j'affiche les pages qui sont par défaut cachés (invisibles) en utilisant un multipage.

ci joint le fichier

Merci de votre compréhension

 

[Nairolf]

Re : affichage chronologique multpage

Salut wolf2012, salut le forum,

Essaye avec ce code:

Sub Rectangle1_Clic()

load UserForm1
UserForm1.MultiPage1.Page3.Visible = True
UserForm1.show

End Sub

Edit: modif erreur de frappe. Salut Job75

 

[job75]

Re : affichage chronologique multpage

Bonjour wolf2012,

Dans le code de l'USF :

Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte
For i = 1 To 4
  If i < 4 Then
    With MultiPage1.Pages(i)
      If Not .Visible Then .Visible = True: Exit Sub
    End With
  Else
    For j = 1 To 3
      MultiPage1.Pages(j).Visible = False
    Next
  End If
Next
End Sub

Edit : salut Nairolf

A+

 

[job75]

Re : affichage chronologique multpage

Re,

Plus simple :

Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 3
  With MultiPage1.Pages(i)
    If Not .Visible Then .Visible = True: Exit Sub
  End With
Next
For i = 1 To 3
  MultiPage1.Pages(i).Visible = False
Next
End Sub

A+

 

[wolf2012]

Re : affichage chronologique multpage

Bonjour job 75, Nairolf

Merci infinement
c ce que je voulais
MERCI