Sortie de pages dans MultiPage.

[Hulk]

Hello tout le monde,

Tardivement, je vous soumets mon petit souci (qui ne va quand même pas m'empêcher de dormir)...

Je ne parviens pas à trouver le moyen d'avoir le numéro d'index de la page que je viens de quitter dans le Multipage.

Voyez le fichier joint tout est détaillé dedans.

Prenez votre temps, je ne pourrai sûrement pas répondre avant demain midi !

Merci à tous ceux qui se pencheront sur mon problème.

 

[Pierrot93]

Re : Sortie de pages dans MultiPage.

Bonjour,

essaye ceci, à placer dans le module de l'usf :

Dim v As Byte
Private Sub MultiPage1_Change()
MsgBox "Vous venez de sortir de la page : " & v + 1
v = MultiPage1.Value
End Sub
Private Sub UserForm_Initialize()
v = MultiPage1.Value
End Sub

bonne journée
@+

 

[Hulk]

Re : Sortie de pages dans MultiPage.

Slt Pierrot, Forum,

Nickel ça joue !

Mais maintenant j'aimerais qui'il me le fasse uniquement en sortant de la page 3 par exemple, mais je n'y arrive pas 😡

Je continue à m'arracher les poils.

 

[Pierrot93]

Re : Sortie de pages dans MultiPage.

Re,

rajoute ce test....

If v = 2 Then MsgBox "Vous venez de sortir de la page : " & v + 1

l'index de la première page étant 0...

 

[Hulk]

Re : Sortie de pages dans MultiPage.

Re,

Nickel Pierrot ça joue !

Comme ça donc...

Dim v As Byte

Private Sub UserForm_Initialize()
    
    v = MultiPage1.Value

End Sub
Private Sub MultiPage1_Change()
    
    If v = 2 Then MsgBox "Vous venez de sortir de la page : " & v + 1
    v = MultiPage1.Value
    
End Sub

Merci infiniment et bonne journée !