probleme pour rendre visible ou non des "frames" et pages de multip

  • Initiateur de la discussion Initiateur de la discussion francois91
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

francois91

XLDnaute Occasionnel
bonjours,
J'ai un problème avec un de mes usf dans lequel je veux rendre visible des "frame"s.
cependant un message d'erreur s affiche a chaque fois, quelqu un saurait m'aider ??
merci d'avance

ps: je joint un fichier
 

Pièces jointes

Dernière édition:
Re : probleme pour rendre visible ou non des "frames" et pages de multip

Hello le Forum, Francois, Pierrejean,

De tête sauf erreur de ma part la première page en VBA est 0, donc si tu veux sélectionner la page 2 il faut faire un page(1).

@+

Creepy
 
Re : probleme pour rendre visible ou non des "frames" et pages de multip

Merci, Creepy et PierreJean t as raison j le savais en + 😱 lol

Sinon j ai modifié les probléme pour les "page calcule" et pour le num des pages cependant un problème perciste avec les "frame".
 
Re : probleme pour rendre visible ou non des "frames" et pages de multip

Bonsoir francois91, pierrejean, creepy,

Voici une solution :
Code:
Private Sub UserForm_Initialize()
    Dim i, j As Integer
    
    If Worksheets("hydrolique").Cells(2, 1) > 25 Then
        For i = Worksheets("Page calcule").Cells(5, 4) - 25 To 25
            Me.MultiPage1.Pages([COLOR="Red"]1[/COLOR]).Controls("Frame" & i + 2).Visible = False
        Next i
    Else
        Me.MultiPage1.Pages([COLOR="red"]1[/COLOR]).Visible = False
        For i = Worksheets("hydrolique").Cells(2, 1) To 25
            Me.MultiPage1.Pages([COLOR="red"]0[/COLOR]).Controls("Frame" & i + 2).Visible = False
        Next i
        With Me
            .Height = 75 + 18 * Worksheets("hydrolique").Cells(2, 1)
        End With
    End If
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour