Afficher un choix dans un Userform Excel

Dans cet exemple, Deux choix sont proposés :

1. Ouverture d'un classeur en lecteur seul
2. Ouverture de la fenêtre Ouvrir

Etape 1 : Création du Userform

1. Ouvrez un nouveau Classeur Excel
2. Sélectionnez le Menu Outil Macro Visual basic Editor [ou appuyez sur les touches CTRL + F11]
3. Sélectionnez le Menu Affichage Boîte à outils Contrôles
   [Afin d'avoir les outils nécessaires à la constitution de notre Userform]
4. Sélectionnez le Menu Insertion Userform [Dès lors, une Userform vierge s'affiche - Cette Userform est est nommée Userform1 défaut] Création des zones de choix :
   
5. Cliquez sur l'outil Bouton d'option
   

   
   

6. Dessinez les zones d'options
   

   
   Création du bouton Validation de la saisie :
   

7. Cliquez sur l'outil Bouton de commande
   

   
   

8. Dessinez votre bouton
9. Cliquez-droit sur le bouton sélectionnez l'option Propriétés
10. Tapez le Libellé du bouton dans la zone Caption [Dans notre exemple : Bt_Valider]
11. Double-cliquez sur le bouton
12. Saisissez le code suivant :

    Private Sub CommandButton1_Click()
      If OptionButton1.Value = True Then
         Workbooks.Open "c:\ASTUCES\test.xls", , True
      Else
          If OptionButton2.Value = True Then
          Application.Dialogs(xlDialogOpen).Show
          End If
      End If
    End Sub
    

Etape 2 : Tapez le code VBA suivant sur le classeur concerné ThisWorkBook

Private Sub Workbook_Open()
 Load UserForm1
 UserForm1.Show
End Sub

Dès lors, à l'ouverture du Classeur, le Userform s'affiche