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

T

Tentative

XLDnaute Occasionnel

• 8 Novembre 2015

• #2

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

Bonjour,

Une tentative :

Code:

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

 

Dernière édition: 8 Novembre 2015

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 8 Novembre 2015

• #3

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

 

Pièces jointes

• CHARLIE MULTIPLAGE.xlsm

  20.7 KB · Affichages: 49

Vote positif 0 Vote négatif

T

Tentative

XLDnaute Occasionnel

• 8 Novembre 2015

• #4

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

Cliquez pour agrandir...

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


Tentative

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 8 Novembre 2015

• #5

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

 

Vote positif 0 Vote négatif

T

Tentative

XLDnaute Occasionnel

• 8 Novembre 2015

• #6

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

Cliquez pour agrandir...

Tentative

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 9 Novembre 2015

• #7

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

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

 

Vote positif 0 Vote négatif