Récupérer l'état d'un togglebutton au sein d'une procédure en cours

Question

Dans userform j'ai une combobox qui propose différents choix. Je traite le choix dans un select case et propose des textbox à renseigner. Quand l'utilisateur a fini de renseigner les champs, il actionne le togglebuton. Je veux connaitre le changement d'état du togglebutton pour continuer mon traitement dans une boucle for

Lorsqu'on active le togglebutton, le traitement s'arrête. Que ou comment faire ?

voici un extrait du code

choix = ComboMenu.ListIndex

Select Case choix

Case 0 ' Ajouter 

cpt1 = 0 

i = FrmAccueilli.TextBox12.Value - NbEnf 

For cpt1 = 0 To i 

    'afficher les zone de saisie 

    Me.TextBox13.Visible = True 

    Me.TextBox14.Visible = True 

    Me.TextBox15.Visible = True 

    Me.Frame1.Visible = True 

    Me.OptionButton1.Visible = True 

    Me.OptionButton2.Visible = True 

    Me.ToggleValider.Visible = True 

    'Valider la saisie 

    If Me.ToggleValider.Value = True Then 

        If MsgBox("Confirmez l'enregistrement de cet Enfant", vbOKCancel + vbQuestion, "Ajout d'un Enfant") = vbOK Then 

            ' enregistrement des enfants dans la feuille ENFANT 

            Worksheets("ENFANT").Cells(lastrowE + 1, 1).Value = ligne 'dossier 

            Worksheets("ENFANT").Cells(lastrowE + 1, 2).Value = Me.TextBox13.Value 'nom 

            Worksheets("ENFANT").Cells(lastrowE + 1, 3).Value = Me.TextBox13.Value 'nom 

            Worksheets("ENFANT").Cells(lastrowE + 1, 4).Value = Me.TextBox15.Value 'age 

            If OptionButton1.Value = True Then 'genre 

                Worksheets("ENFANT").Cells(lastrowE + 1, 5).Value = "Fille" 

            Else 

                Worksheets("ENFANT").Cells(lastrowE + 1, 5).Value = "Garçon" 

            End If 

            Worksheets("ENFANT").Cells(lastrowE + 1, 6).Value = lastrowE 

            lastrowE = lastrowE + 1

Answer 1

Bonjour,

Pas trop compris. Le code est dans la macro ToggleValider_Click ? Sur quelle ligne s'arrête-t-elle ?

Daniel