[RESOLU]Afficher et masquer les pages de multipage selon la valeur d'une cellue

[chaelie2015]

bonjour forum
comment faire pour afficher et masquer les pages de multi page
dans mon cas je souhaite afficher ou masquer les pages de multi page selon une valeur saisie dans la celluleA1 de Feuille1
valeur max = 8
EXEMPLE SI JE SAISI DANS LA CELLULE A1 =3 J'aurai 03 page et si je resaie une autre fois 2 j'aurai 2page et ainsi de suite
SALUTATIONS

 

[Tentative]

Re : Afficher et masquer les pages de multipage selon la valeur d'une cellue

Bonjour,

Une tentative :

Private Sub UserForm_Initialize()
Dim Nb, NbPages, X, Z As Byte

Nb = Sheets(1).Cells(1, 1).Value
NbPages = Me.MultiPage1.Pages.Count

For Z = 1 To NbPages
   Me.MultiPage1.Pages("Page" & Z).Visible = False
Next Z
For X = 1 To Nb
   Me.MultiPage1.Pages("Page" & X).Visible = True
Next X

End Sub

Désolé pour le double collé ... c'est corrigé

Tentative

 

[chaelie2015]

Re : Afficher et masquer les pages de multipage selon la valeur d'une cellue

Bonsoir Tentative
merci pour la réponse, mais çà n'a pas fonctionne, ci joint le fichier
SALUTATIONS

 

[Tentative]

Re : Afficher et masquer les pages de multipage selon la valeur d'une cellue

Bonjour,

Le nom des feuilles doit être inscrit comme ceci entouré de ":

Nb = Sheets("Feuil1").Cells(1, 1).Value

Dès lors, ça fonctionne 8- ))


Tentative

 

[chaelie2015]

Re : Afficher et masquer les pages de multipage selon la valeur d'une cellue

Re
merci c'est un oubli
mais si je saisi une valeur sup a 2
j'aurai un bug
erreur d’exécution 5
argument ou appel de procédure incorrect....
SALUTATIONS

 

[Tentative]

Re : Afficher et masquer les pages de multipage selon la valeur d'une cellue

Bonjour,

Il y a plusieurs façons de gérer cette erreur, l'une consisterait à ce que nb ne dépasse le nbpages :

sous : NbPages = Me.MultiPage1.Pages.Count

ajouter : If Nb > nbpage Then Nb = NbPages

Tentative

 

[chaelie2015]

Re : Afficher et masquer les pages de multipage selon la valeur d'une cellue

Bonjour tentative
c'est nickel
problème résolu
salutations