Objet Page, collection Pages, contrôle MultiPage, propriété SelectedItem – Exemple
L’exemple suivant accède à une page individuelle d’une multipage de plusieurs façons :
Utilisation de la collection Pages avec un index numérique.
En utilisant la collection Pages avec un index des chaînes.
Utilisation de la collection Pages avec la méthode Item .
en utilisant le nom de la page dans le contrôle MultiPage ;
Utilisation de la propriété SelectedItem .
Pour utiliser cet exemple, copiez le code ci-dessous dans la section Déclarations d'un formulaire. Vérifiez que le formulaire contient une multipage appelée MultiPage1.
Private Sub UserForm_Initialize()
Dim PageName As String
For i = 0 To MultiPage1.Count - 1
'Use index (numeric or string)
MsgBox "MultiPage1.Pages(i).Caption = " _
& MultiPage1.Pages(i).Caption
MsgBox "MultiPage1.Pages.Item(i).Caption = " _
& MultiPage1.Pages.Item(i).Caption
PageName = MultiPage1.Pages(i).Name
MsgBox "PageName = " & PageName
MsgBox "MultiPage1.Pages(PageName)" _
& ".Caption = "_
& MultiPage1.Pages(PageName).Caption
MsgBox "MultiPage1.Pages.Item(PageName)" _
& ".Caption = " & MultiPage1.Pages _
.Item(PageName).Caption
'Use Page object without referring to
'Pages collection
If i = 0 Then
MsgBox "MultiPage1.Page1.Caption= " _
& MultiPage1.Page1.Caption
ElseIf i = 1 Then
MsgBox "MultiPage1.Page2.Caption = " _
& MultiPage1.Page2.Caption
End If
'Use SelectedItem Property
MultiPage1.Value = i
MsgBox "MultiPage1.SelectedItem.Caption = " _
& MultiPage1.SelectedItem.Caption
Next i
End Sub
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour