Discussion :

[titilex]

Bonjour le forum,

Je cherche à résoudre un soucis que je rencontre avec un userform (USF01), sur lequel j'ai mis en place un multipage (USF01MP01).
Le multipage contient 4 pages, seul la première est active, les autres sont grisées et non accessibles (attention je n'ai pas écris non visible).
Sur la page01 (USF01MP01P01), j'ai mis en place une opération qui me fait apparaître 5 label au fur et à mesure. (label1 / label2/... / label 5)
J'ai un bouton CB01, qui me permet de passer à l'opération suivante, sur la page02 (USF01MP01P02). La condition pour que le clic sur CB01 débloque la page 2 c'est que les label 1 à 5 soit affichés.

Par ailleurs si l'un des labels ne s'affichent pas, je voudrais mettre un messagebox en place ("Suite de traitement impossible").

Quelqu'un peut m'aider ?

Merci d'avance.

[Algoplus]

Bonjour,

pour pouvoir apporter une réponse, il faudrait déjà voir le code réalisé.

A+

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Bouton1_Click()
Dim Indx As Integer, i As Integer
Dim Ko As Boolean
 
With Me.USF01MP01
    Indx = .Value
    If Indx < .Pages.Count - 1 Then
        For i = 1 To 5
            If Not Me.Controls("Label" & i).Visible Then
                Ko = True
                Exit For
            End If
        Next i
        If Ko Then
            MsgBox "Impossible de continuer..."
        Else
            .Value = Indx + 1
        End If
    End If
End With
End Sub