Partager via

Propriété Count – Exemple

  • Article

L’exemple suivant affiche la propriété Count de la collection Controls pour le formulaire, et la propriété Count identifiant le nombre de pages et d’onglets de chaque multipage et tabStrip.

Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Le formulaire peut contenir un nombre quelconque de contrôles, avec les restrictions suivantes :

  • Les noms des contrôles MultiPage doivent commencer par MultiPage.
  • Les noms des contrôles TabStrip doivent commencer par TabStrip.

Remarque

Vous pouvez ajouter des pages à un contrôle MultiPage ou des onglets à un contrôle TabStrip. Dans Windows, double-cliquez sur le contrôle, cliquez avec le bouton droit dans la zone d’onglet du contrôle et choisissez Nouvelle page dans le menu contextuel.

Private Sub UserForm_Initialize() 
 Dim MyControl As Control 
 
 MsgBox "UserForm1.Controls.Count = " _ 
 & Controls.Count 
 
 For Each MyControl In Controls 
 If (MyControl.Name Like "MultiPage*") Then 
 MsgBox MyControl.Name _ 
 & ".Pages.Count = " _ 
 & MyControl.Pages.Count 
 ElseIf (MyControl.Name Like "TabStrip*") Then 
 MsgBox MyControl.Name & ".Tabs.Count = " _ 
 & MyControl.Tabs.Count 
 End If 
 Next 
 
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.