XL 2013 Bouton commande sur Multipage

[Aboulfadl]

Bonjour,
D’abord je suis un débutant de VB sur Excel, alors je m’excuse si je ne suis pas en mesure de m’expliquer.
Ma question svp et la suivante : j’ai placé sur mon Userform5, un multipage composer de 7 pages et sur la première page il y a des boutons de commandes 1, 2,3 etc. , ensuite sur mon autres Userform3, un multipage composé de 21 pages.
Maintenant je souhaite que quand je clic sur le bouton1 page1 Userform5, me déplacer vers page 1 Userform3, et avec un clic sur le bouton2 page1 Userform5, me déplacer vers page 2 Userform3, et avec un clic sur le bouton3 page1 Userform5, me déplacer vers page 3 Userform3, etc.
Merci infiniment pour votre aide

 

[JM27]

Bonjour
Peut être comme cela
dans userform5

Private Sub CommandButton1_Click()
    UserForm3.MultiPage1.Value = 0
    UserForm3.Show
End Sub

Private Sub CommandButton2_Click()
    UserForm3.MultiPage1.Value = 1
    UserForm3.Show
End Sub
Private Sub CommandButton3_Click()
    UserForm3.MultiPage1.Value = 2
    UserForm3.Show
End Sub

etc....

Edition : Bonsoir Thierry

 

[_Thierry]

Bonsoir @Aboulfadl , le Forum

Je pense comme ceci, mais attention, tu ne pourras pas ouvrir tous les UserForms sinon il faut passer en mode Modal False, il faut gérer la fermeture de ceux-ci....

Private Sub CommandButton1_Click()
'UserForm5.Hide  '<<<  Tout dépend ...............
With UserForm3
.MultiPage1.Value = 0 '<<< Base Zéro, la page1 = 0...  La Page2 = 1 etc...........
.Show
End With

End Sub


Bonne soirée
@+Thierry
Private Sub CommandButton2_Click()
With UserForm3
.MultiPage1.Value = 1 '<<< Base Zéro, la page1 = 0...  La Page2 = 1 etc...........
.Show
End With
End Sub

Private Sub CommandButton3_Click()
With UserForm3
.MultiPage1.Value = 2 '<<< Base Zéro, la page1 = 0...  La Page2 = 1 etc...........
.Show
End With
End Sub

 

[_Thierry]

Ah pardon Jean Marcel, pas vu !, bonsoir à toi !
@+Thierry

 

[Aboulfadl]

Bonjour, Jean Marcel + Thierry

Merci infiniment pour vos réponses 🙂
ça marche à +