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
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