Les boîtes de dialogue

Boite de dialogue avec bouton d'option.Retour au menu Contrôles divers

        Le Userform (DlgChoix)

        Le code

        Code lançant l'ouverture de la boîte de dialogue

 
Sub AfficheBoutonsOption()
  DlgChoix.Show
End Sub

        Code d'ouverture du formulaire

 
Private Sub UserForm_Activate()
  DlgChoix.ChoixPaire.Value = True
End Sub
Nota : A l'ouverture du formulaire la case France est cochée par défaut.

        Code des boutons

       1 / Bouton OK
 
Private Sub OK_Click()
DlgChoix.Hide
If DlgChoix.ChoixPaire Then
   Msg = "Vous avez choisi l'activité France."
   Style = vbOKOnly + vbInformation
   Title = "Activité Commerciale - © E. RENAUD - Novembre 1999"
   Response = MsgBox(Msg, Style, Title)
Else
   Msg = "Vous avez choisi l'activité Export."
   Style = vbOKOnly + vbInformation
   Title = "Activité Commerciale - © E. RENAUD - Novembre 1999"
   Response = MsgBox(Msg, Style, Title)
End If
End Sub
        2 / Bouton Annuler
 
Private Sub Annuler_Click()
  DlgChoix.Hide
End Sub

Retour au début de document

Retour au début du document