XL 2019 Multipage, disparition des objets suite au masquage de page

[SPGoder]

Bonjour
Comme expliqué dans le titre, lorsque je cache une page, et la fait réapparaitre ensuite, les objets dans celle ci n'apparaisse plus.
Il doit y avoir une astuce pour les faire réapparaitre tous en même temps, mais je ne la connais pas.
Quelqu'un peut il m'aiguiller svp

 

[SPGoder]

et autre petite question, est il possible de cacher les onglets des pages?

 

[sylvanu]

Bonjour SPGoder,
Qu'aviez vous comme objets dans votre feuille ? Car vous n'avez pas de dessins ou figures dans votre feuille.
Essayez cela :

Sub essai()
    MsgBox "Nombre de shapes dans la page : " & Shapes.Count
End Sub

Pour masquer les onglets, faites Options XL/Options avancées/Afficher les options pour ce classeur et décocher Afficher les onglets du classeur.

 

[SPGoder]

Bonjour Sylvanu
Ce que j'appelle objet, certainement à tort, se sont des checkbox, textbox et autres...
Comme dans le fichier joint qui n'est qu'un exemple

 

[sylvanu]

Ci joint votre fichier avec quelques fioritures.
On compte 5 shapes ... qui sont les 5 que j'ai rajouté.
Donc sur votre fichier je n'ai rien trouvé d'autre.

 

[SPGoder]

Je n'arrive pas a intégrer le code fourni au multipage, je suis désolé
J'ai essayé tel quel, erreur
J'ai essayé aussi
Me.MultiPage1.Pages(0).Visible = False
Me.MultiPage1.Pages(1).Visible = True
For Each forme In MultiPage1.Pages(1)
forme.Visible = True
Next forme

 

[SPGoder]

j'ai oublié un bouton sur mon fichier, désolé, vous comprendrez mieux la problématique

 

[patricktoulon]

Je n'arrive pas a intégrer le code fourni au multipage, je suis désolé
J'ai essayé tel quel, erreur
J'ai essayé aussi
Me.MultiPage1.Pages(0).Visible = False
Me.MultiPage1.Pages(1).Visible = True
For Each forme In MultiPage1.Pages(1)
forme.Visible = True
Next forme

a donc quand tu parle de (page/onglet) tu parle de page /onglet) d'un controls multipage dans un userform je suppose

donc pour ce qui est des " forme" que tu ferais bien et vite de les classer dans ta tetes comme des controls
et surtout quand on boucle "for each truc in machin " et qu'il est sensé avoir dans le in différent éléments on utilise la collections approprié
dans ce cas de diversité d'element donc on bouclera sur la collection"Controls"
donc
dim Control
For Each control In MultiPage1.Pages(1).controls
control.Visible = True
Next control

 

[SPGoder]

Bonjour Patrick
Oui tout à fait. je n'emploie pas les bons terme, merci de l'explication
Mais ça ne fonctionne que sur le premier appuie de chaque bouton, ensuite tout redisparait

Private Sub CommandButton1_Click()
Me.MultiPage1.Pages(0).Visible = True
Me.MultiPage1.Pages(1).Visible = False
Dim Control
For Each Control In MultiPage1.Pages(0).Controls
Control.Visible = True
Next Control
End Sub

Private Sub CommandButton2_Click()
Me.MultiPage1.Pages(0).Visible = False
Me.MultiPage1.Pages(1).Visible = True
Dim Control
For Each Control In MultiPage1.Pages(1).Controls
Control.Visible = True
Next Control
End Sub

 

[SPGoder]

j'ai trouvé,

Private Sub CommandButton1_Click()
Me.MultiPage1.Pages(0).Visible = True
Me.MultiPage1.Pages(1).Visible = False
Dim Control
For Each Control In MultiPage1.Pages(0).Controls
Control.Visible = True
Next Control
End Sub

Private Sub CommandButton2_Click()
Me.MultiPage1.Pages(1).Visible = True
Me.MultiPage1.Pages(0).Visible = False
Dim Control
For Each Control In MultiPage1.Pages(1).Controls
Control.Visible = True
Next Control
End Sub

merci à vous

 

[patricktoulon]

re
d’après toi que fait tu quand tu masque un onglet et en démasque un autre??
je te donne un indice (a aucun moment tu active une page)
c'est bon t'a compris ......
allez tien

Private Sub CommandButton1_Click()
    With Me.MultiPage1
        .Pages(0).Visible = True
        .Pages(1).Visible = False
        .Value = 0
    End With
End Sub

Private Sub CommandButton2_Click()
    With Me.MultiPage1
        .Pages(0).Visible = False
        .Pages(1).Visible = True
        .Value = 1
    End With
  End Sub

c'est pas parceque tu rend visible 1 seule page qu'elle est active de ce fait tu ne peux pas en voir les controls car elle n'est pas active de la meme maniere que si tu les masquais pas
sinon en temps normal elle serait toute affichées en meme temps
voila jeune homme 😉
maintenant tu sais

 

[SPGoder]

Tout à fait, j'en prend bonne note
Encore un grand merci

PS j'avais pas vu le repaint, je viens d'aller voir à quoi ça correspond, j'ai encore appris un truc....

 

[patricktoulon]

et pour le fun avec le même bouton tu peux basculer

Private Sub CommandButton1_Click()
With Me.MultiPage1
x = IIf(.Value = 1, 0, 1)
For Each p In .Pages: p.Visible = False: Next
For Each p In .Pages: If p.Index = x Then p.Visible = True
Next
.Value = x
End With
End Sub

 

[SPGoder]

merci patrick, je vais essayer ça.