Discussion :

[Tindjisix]

Bonjour

A quoi sert la propriété Cycle dans un Userform ?

Dans le tuto je lis "Spécifie l'action à effectuer lorsque l'utilisateur quitte le dernier contrôle", mais concrêtement, je n'arrive pas à voir ce que ça fait.

[PMO2017]

Bonjour,

Voici l'exemple issu de l'aide

Cycle, propriété, exemple

L'exemple suivant définit la propriété Cycle pour un contrôle Frame et deux objets Page d'un contrôle MultiPage.

Pour utiliser cet exemple, copiez le code suivant dans la partie Déclarations d'une feuille et vérifiez que celle-ci contient :

un contrôle Frame nommé Frame1,


un contrôle MultiPage nommé MultiPage1, contenant deux objets nommés Page1 et Page2,


deux contrôles CommandButton nommés CommandButton1 et CommandButton2.
Dans la feuille, le contrôle Frame et chaque objet Page du contrôle MultiPage, placez quelques contrôles pour visualiser la façon dont la propriété Cycle affecte l'ordre des tabulations des contrôles Frame et MultiPage.

L'utilisateur doit tabuler dans les contrôles pour observer la façon dont la propriété Cycle affecte l'ordre des tabulations. Si vous cliquez sur le contrôle CommandButton1, vous étendez l'ordre des tabulations pour inclure des contrôles dans le contrôle Frame et les objets Page. Si vous appuyez sur le contrôle CommandButton2, vous limitez l'ordre des tabulations.

Private Sub RestrictCycles()
'Limit tab order for the Frame and Page objects
Frame1.Cycle = fmCycleCurrentForm
MultiPage1.Page1.Cycle = fmCycleCurrentForm
MultiPage1.Page2.Cycle = fmCycleCurrentForm
End Sub

Private Sub UserForm_Initialize()
RestrictCycles
End Sub

Private Sub CommandButton1_Click()
'Extend tab order subforms (the Frame and Page
'objects)
Frame1.Cycle = fmCycleAllForms
MultiPage1.Page1.Cycle = fmCycleAllForms
MultiPage1.Page2.Cycle = fmCycleAllForms
End Sub

Private Sub CommandButton2_Click()
RestrictCycles
End Sub