Boucle sur bouton option dans plusieurs frame

Bonjour à tous,

Je cherche mais ne trouve pas la solution.

Comment extraire les choix (par bouton option) de plusieurs frames et les remettre dans les cellules par une boucle For i ?

Extraire d'une frame c'est oK

For Each ctrl In Frame1.Controls
If ctrl.Value = True Then
Range("B1") = ctrl.Caption
End If
Next

mais comment faire la boucle de la frame1 pour insérer le résultat en cellule B1 et ainsi de suite Frame2 en cellule B2 ?

Voire exemple ci-joint

Merci pour vos réponses à venir

54case-option.zip (13.15 Ko)

Bonjour

Le numéro de la frame doit correspondre au numéro de la ligne

Private Sub CommandButton1_Click()
Dim Ctrl0 As Control, Ctrl1 As Control, Ligne As Long

  For Each Ctrl0 In Me.Controls
    If TypeOf Ctrl0 Is MSForms.Frame Then
      Ligne = Mid(Ctrl0.Name, Len("Frame") + 1)
      For Each Ctrl1 In Ctrl0.Controls
        If Ctrl1 = True Then Cells(Ligne, "B") = Ctrl1.Caption: Exit For
      Next Ctrl1
    End If
  Next Ctrl0
End Sub

Bonjour Banzaï,

Super ! ça fonctionne... Bravo et Merci

Rechercher des sujets similaires à "boucle bouton option frame"