XL 2021 Peut-on masquer des pages d'un Multipages sous conditions ?

[Nicolas JACQUIN]

Bonjour à tous et meilleurs voeux,

Peut-on masquer des pages d'un Multipages sous conditions ?
Si j'ai un multipages de 3 pages, puis-je masquer la page 2 (1) sous une condition et la page 3 (2) sous une autre condition, ou les deux si dans les deux conditions ?

Merci pour vos réponses

Nicolas

 

[Nain porte quoi]

Hello,

oui avec la propriété Visible
MultiPage1.Pages(2).Visible = Faux et le Faux peut venir d'une condition IF par exemple

 

[Nicolas JACQUIN]

J'avais bien l'idée de rajouter un Label "Non disponible pour le moment", mais si moyen de masquer la page, se serait mieux

 

[Nicolas JACQUIN]

Hello,

oui avec la propriété Visible
MultiPage1.Pages(2).Visible = Faux et le Faux peut venir d'une condition IF par exemple

Je te remercie, j'avais bien le code mais pas mis au bonne endroit, usine à gaz un peu mon truc, du coup j'avais un doute

 

[dysorthographie]

Bonjour,
tu peux également la mètre à Enabled=false ainsi il reste visible mais non sélectionnable.

 

[Nicolas JACQUIN]

Bonjour Robert,
Tu connais le sujet, j'essaie de l'améliorer au maximum notre petit programme,
vue que les marées c'est j+10 et la météo j+7, ça évitait d'avoir les pages pour rien, pour ça autant les masquer si inexploitable.

 

[dysorthographie]

tu veux que quand l'utilisateur sélectionne un date qui est hors limite soit de la météo ou des marées masque l'onglet concerné?

 

[Nicolas JACQUIN]

tu veux que quand l'utilisateur sélectionne un date qui est hors limite soit de la météo ou des marées masque l'onglet concerné?

oui vu que marée dispo que j+10 et météo j+7

 

[Nicolas JACQUIN]

 

[dysorthographie]

j'ai téléchargé le fichier dans les ressource et je n'ai pas la météo!

 If Not Rs.EOF Then
         MultiPage1.Pages(1).Visible = True
        Lbl_MaréeJour = WorksheetFunction.Proper(Format(Rs("Date"), "dddd dd mmmm yyyy"))
        Lbl_MaréeJour.ForeColor = -2147483630
        Matin_Coefficient = "" & Rs("Matin Coeff"):  Après_Coefficient = "" & Rs("Après-midi Coeff")
        Matin_Basse = "" & Rs("Matin Basse mer"):  Après_Basse = "" & Rs("Après-midi Basse mer")
        Matin_Haute = "" & Rs("Matin Pleine mer"):  Après_Haute = "" & Rs("Après-midi Pleine mer")
        Hauteur_basse_mer_am = "" & Rs("Matin Basse mer Niveau Zéro") & "m": Hauteur_pleine_mer_am = "" & Rs("Matin Pleine mer Niveau Zéro") & "m"
        Hauteur_basse_mer_ap = "" & Rs("Après-midi Basse mer Niveau Zéro") & "m": Hauteur_pleine_mer_ap = "" & Rs("Après-midi Pleine mer Niveau Zéro") & "m"
        Matin_Basse = Format("" & Rs("Matin Basse mer"), "hh:mm"): Matin_Haute = Format("" & Rs("Matin Pleine mer"), "hh:mm")
        Après_Basse = Format("" & Rs("Après-midi Basse mer"), "hh:mm"): Après_Haute = Format("" & Rs("Après-midi Pleine mer"), "hh:mm")
    Else
        MultiPage1.Pages(1).Visible = False
        If Format(Dates, "yyyy-mm-dd") < Format(Date, "yyyy-mm-dd") Then
            Lbl_MaréeJour = "Les données ne sont plus disponibles"
            Lbl_MaréeJour.ForeColor = &HFF&
        Else
            Lbl_MaréeJour = "Les données ne sont pas encore disponibles pour cette date"
            Lbl_MaréeJour.ForeColor = &HFF&

        End If
    End If

notes que tu peux donner un nom a chaque onglet et les appeler individuellement MultiPage1.Pages("VenEtMarrée").Visible = False

ceci dit j'habite LYON question marée c'est plutôt calme!

 

[Phil69970]

Bonjour à tous

En passant :

j'habite LYON question marée c'est plutôt calme!

Juste un petit coucou à un voisin et je confirme c'est compliqué pour les marées 🤣 🤣

Bonne année à tous