Multipage changer de page

bonjour,

j'ai un petit souci sur un de mes userform j'ai un multipage et je voudrais qu'a chaque changement d'onglet j'ai un message qui apparaisse, ça j'ai reussi, par contre si l'utilisateur reponds non au message box qu'il retourne sur la page precedente et la je galere

pour l'instant j'ai ça

Private Sub MultiPage1_Change()

    Sheets("filtrage").Select
    If Range("a2").Value <> "" Then
        If pagePrecedente <> MultiPage1.SelectedItem.Name Then
            If MsgBox(" le changement d'onglet provoquera la perte de la liste d'impression ", vbYesNo) = vbYes Then
                Range("a2:a" & Range("a65536").End(xlUp).Row).EntireRow.Delete
                Label14.Caption = 0
                Label15.Caption = 324
                Label28.Caption = 0
                Label34.Caption = 0
                Label36.Caption = 0
                pagePrecedente = MultiPage1.SelectedItem.Name
            Else
                'je cherche ce que je dois mettre ici

            End If
        End If
    End If

End Sub

Private Sub UserForm_Initialize()
    pagePrecedente = MultiPage1.SelectedItem.Name
end sub

la variable pagePrecedente contient "page.." ou .. est le numero de la page

j'ai essayé

multipage1.value = right(pagePrecedente,1)-1

il va bien sur l'onglet mais il ne change pas de page

je sais ça veux pas dire grand chose mais je m'explique un peu mieux

l'onglet change on voit bien qu'il retourne sur l'onglet précédent (et encore pas tout le temps mais bon ça je verrais après) mais le "corps" du multipage lui reste sur la page que j'ai cliqué

je sais pas si c'est compréhensible n’hésiter pas à demandé si vous voulez plus d'explication

merci d'avance

edit :

en gros, je cherche à annuler le changement de page

comme par exemple quand on quitte un userform

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If MsgBox("Voulez-vous vraiment quitter ?", vbYesNo) = vbNo Then
        Cancel = True
    Else
        ThisWorkbook.Saved = True
        ThisWorkbook.Close
    End If

End Sub

exactement la même chose que je cherche a faire

demander si il veulent vraiment changer de page si oui, il change si non, on annuler le changement de page

Bonjour,

Annuler l'action ne suffirait-il pas ?

Application.Undo

Après je peux rien essayer de plus donc je donne une piste possible

bonjour avie

je viens d'essayé en sa ne fonctionne pas :/

merci quand même de t'intéresse a mon sujet

je remonte le sujet au cas ou ?

et j'ai trouvé comment mieux expliqué le problème

en gros, je cherche à annuler le changement de page

comme par exemple quand on quitte un userform

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If MsgBox("Voulez-vous vraiment quitter ?", vbYesNo) = vbNo Then
        Cancel = True
    Else
        ThisWorkbook.Saved = True
        ThisWorkbook.Close
    End If

End Sub

exactement la même chose que je cherche a faire

demander si il veulent vraiment changer de page si oui, il change si non, on annuler le changement de page