Les boîtes de dialogue

Boite de dialogue combinée.Retour au menu Contrôles divers

        Cette boîte de dialogue permet en cochant une des options du contrôle
        de gauche (Catégorie), d'afficher la liste correspondante dans le
        contrôle de droite (Liste avec Noms et Prénoms)

        Le Userform (ListeCombinee)

        Le code

        Code lançant l'ouverture du Userform (ListeCombinee)

 
Sub AfficheListeCombinee()
      ListeCombinee.Show
End Sub

        Code d'ouverture du formulaire par l'événement Activate

 
Private Sub UserForm_Activate()
' Permet de cocher le bouton radio 1 à l'ouverture du formulaire
        Me.OptionButton1.Value = True
End Sub

        Code sur l'événement Click des boutons d'option de la zone Catégorie
        (Contrôle situé à gauche)

 
Private Sub OptionButton1_Click()
        LastInputRow = Cells(1, 1).End(xlDown).Row
        ListBox1.RowSource = "Effectif!A1: A" & LastInputRow
        MyCategorie = "Débutants"
        Me.ListBox1.ListIndex = 0
' Mise à jour libellé liste déroulante
        With ListeCombinee
                .Label1.Caption = "Liste des " & MyCategorie & " (Nom et Prénom)"
        End With
End Sub

Private Sub OptionButton2_Click()
        LastInputRow = Cells(1, 2).End(xlDown).Row
        ListBox1.RowSource = "Effectif!B1: B" & LastInputRow
        MyCategorie = "Poussins"
        Me.ListBox1.ListIndex = 0
' Mise à jour libellé liste déroulante
        With ListeCombinee
                .Label1.Caption = "Liste des " & MyCategorie & " (Nom et Prénom)"
        End With
End Sub

Private Sub OptionButton3_Click()
        LastInputRow = Cells(1, 3).End(xlDown).Row
        ListBox1.RowSource = "Effectif!C1: C" & LastInputRow
        MyCategorie = "Benjamins"
        Me.ListBox1.ListIndex = 0
' Mise à jour libellé liste déroulante
        With ListeCombinee
                .Label1.Caption = "Liste des " & MyCategorie & " (Nom et Prénom)"
        End With
End Sub

        Code des boutons

       1 / Bouton Valider
 
Private Sub CmdValider_Click()
        Me.Hide
        MySelection = Me.ListBox1.List(ListBox1.ListIndex)
        MsgBox "Vous avez choisi le joueur " & MySelection & "." & vbCr & _
                "Il appartient à la catégorie des " & MyCategorie & "."
         Unload Me
End Sub
        2 / Bouton Annuler
 
Private Sub Annuler_Click()
        Me.Hide
        Unload Me
End Sub

Retour au début de document

Retour au début du document