Bjr a tous

je voudrais avoir la possibilite de pouvoir naviguer ds la print view c'est a dire pouvoir si je n'ai pas choisi la bonne page au depart ds mon input box pouvoir changer de page ds la barre d'etat au dessus de la previsualisation.
voila mon code est
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub CommandButton4_Click()
 
Dim NumPge, LigDeb, LigFin
 
  NumPge = InputBox("Enter the page number that you want to print:")
  If NumPge = "" Then Exit Sub
  LigDeb = 1 + (23 * (NumPge - 1) * Abs(NumPge > 1)) + 1
  LigFin = 1 + (23 * (NumPge - 1)) + 23
                With ActiveSheet.PageSetup
                .PrintTitleRows = "$1:$1"
                .LeftHeader = "CT Dynamics (R & D) Motor ID Log for Lab"
                .CenterHeader = ""
                .RightHeader = "Page " & NumPge
                End With
    ActiveSheet.PageSetup.PrintArea = "$B$" & LigDeb & ":$J$" & LigFin
 
ActiveWindow.SelectedSheets.PrintPreview
 
 
End Sub
merci d'avance