1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62
| Option Explicit
'**************************************************************************************************
' NAME : FixePage (FUNCTION)
' DESCRIPTION : Permet de fixer une page dans le controle Multipage
'**************************************************************************************************
Public Function FixePage(MultiPage As Control, lIndex As Long) As Control
Set FixePage = MultiPage.Pages(lIndex)
End Function
'**************************************************************************************************
' NAME : Test
' DESCRIPTION : Exemple d'utilisation de la fonction FixePage
'**************************************************************************************************
Public Sub test()
Dim Page As Control
Set Page = FixePage(UserForm1.MultiPage1, 1)
With Page
'Ton code pour la mise en forme
'le remplissage des listbox à l'initialisation
'.....
End With
End Sub
'**************************************************************************************************
' NAME : Procedure
' DESCRIPTION : Exemple de structure d'une procédure. Cela permet de l'appeler suivant un événement
' et laissant une certaine lisibilité du code dans ton USF.
'
' EXEMPLE D'UTILISATION :
' Private Sub CommandButton1_Click()
' If Procedure(Me) Then
' MsgBox "Enregistrement OK"
' Else
' MsgBox "Erreur " & Err.Description
' Err.Clear
' End If
' End Sub
'
'**************************************************************************************************
Public Function Procedure(oControl As Control) As Boolean
On Error GoTo HANDLER
With oControl
'Ton code pour une action
Procedure = True
End with
HANDLER:
Procedure = False
End Function |