Multipage dans un userform

[DRANAC]

Bonjour,
Comment peut-on initializer la page 1 d'un multipage à la maniere d'un userform.
Voila le code d'initialisation :

i = 1
Do
i = i + 1
Loop While Sheets("MAT").Cells(i, 2).Value <> 0
TIME = i
For J = 1 To 6
If Sheets("MAT").Cells(i, J + 6).Value <> "" Then
Me.Controls("checkbox" & J).Visible = True
Me.Controls("checkbox" & J).Caption = Sheets("MAT").Cells(i, J + 6).Value
End If
Next J

Merci d'avance

 

[jp14]

Re : Multipage dans un userform

Bonjour


L'instruction suivante permet de positionner le "multipage"

MultiPage1.Value = 0 ' page0

Normalement les contrôles dans les multipages ont des numéros différents, on peut donc tous les initialisées à leur valeur dans la procédure " UserForm_Initialize"

Si on désire positionner des valeurs lors des changements de page il faut utiliser comme ci dessous

exemple de code remplir un listview en fonction de la page sélectionnée

Private Sub MultiPage1_Change()
With Sheets(nomfeuille2)

Select Case MultiPage1.Value
    Case 0
        ListView2.ListItems.Clear
         For i = 2 To .Range("b65536").End(xlUp).Row
                If MultiPage1.Page0.Caption = .Range("b" & i) Then Call alimlistview2
        Next i
    Case 1
        ListView2.ListItems.Clear
        For i = 2 To .Range("b65536").End(xlUp).Row
                If MultiPage1.Page1.Caption = .Range("b" & i) Then Call alimlistview2
        Next i
        
End Select

JP