Affichage / Masquage d'un onglet d'un objet multipage

philoche63

XLDnaute Nouveau
Bonjour les amis !
me voila encore confronté à un problème sous VBA :
j'ai un formulaire où se trouve un objet multipage avec 3 onglets.
j'ai une liste déroulante "Période".
Je voudrais que l'onglet "page5" soit visible uniquement quand la période est supérieure à la cellule en 2,33
j'ai mis de debogeage et passe bien la ou il faut mais l'onglet est toujours là.

Un grand merci par avance de votre aide

Cordialement

Philippe


Private Sub CboPeriode_Change()
TxtDebPeriode.Value = "01"
toto = Format(CboPeriode.Value, "dd/mm/yyyy")
Me.TxtFinPeriode.Value = Day(DateSerial(Year(Me.CboPeriode.Value), Month(Me.CboPeriode.Value) + 1, 0))

If toto < Cells(2, 33) Then
MultiPage2.Page5.Visible = False
Else
MultiPage2.Page5.Visible = True
End If
End Sub
 

camarchepas

XLDnaute Barbatruc
Re : Affichage / Masquage d'un onglet d'un objet multipage

Bonjour Philoche ,

Sans fichier pas facile à te dépanner .

si le test toto< cells(2,33) se passe bien ( Et oui avec les dates , y' a tellement d'écarts possibles)

l'écriture pour rendre visible ou invisible semblerait plutot être :

Exemple pour la page 5

multipage2(4).Visible = False

Cordialement
 
Haut Bas