Partager via

Boutons d’option de groupe

  • Article

L’exemple suivant utilise la propriété GroupName pour créer deux groupes de contrôles OptionButton sur le même formulaire.

Pour utiliser cet exemple, copiez-en le code vers l’éditeur de script d’un formulaire. Pour exécuter le code, vous devez ouvrir le formulaire afin d’activer l’événement Open. Vérifiez que le formulaire contient cinq contrôles OptionButton nommés OptionButton1 à OptionButton5.

Sub Item_Open() 
 set OptionButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton1") 
 set OptionButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton2") 
 set OptionButton3 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton3") 
 set OptionButton4 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton4") 
 set OptionButton5 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton5") 
 
 OptionButton1.Caption = "Widgets" 
 OptionButton2.Caption = "Widgets" 
 OptionButton3.Caption = "Widgets" 
 OptionButton1.GroupName = "Widgets" 
 OptionButton2.GroupName = "Widgets" 
 OptionButton3.GroupName = "Widgets" 
 
 OptionButton4.Caption = "Gadgets-Group2" 
 OptionButton5.Caption = "Gadgets-Group2" 
 OptionButton4.GroupName = "Gadgets-Group2" 
 OptionButton5.GroupName = "Gadgets-Group2" 
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.