MultiPage - checkBox- Boucle : Vba

Bonjour Pivert
merci beaucoup pour ton aide, j'ai vraiment de la difficulté avec les boucles, voici ce que j'essaie qui ne fonctionne pas. Svp sois indulgent, j'essaie ;)

Sub produits()
Dim x, J As Integer
x = 13
Dim Ctrl As Control
Dim Ctrl_2 As Control
'Boucle sur la collection de contrôles
For Each Ctrl_2 In Me.Controls
If TypeOf Ctrl_2 Is MSForms.MultiPage Then
If Ctrl_2.Name = "FRAIS" Then
Cells(x, 1) = "F"

If Ctrl_2.Name = "CONGELÉ" Then
Cells(x, 5).Value = "S"
If Ctrl_2.Name = "TRANSFORMÉ_FRAIS" Then
Cells(x, 5).Value = "T/F"
If Ctrl_2.Name = "TRANSFORMÉ_CONGELÉ" Then
Cells(x, 5).Value = "T/S"
Sheets("transport DSTJ").Cells(J + 1, 1) = Sheets(i).Cells(x, 2)
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then
If Ctrl.Object.Value = True Then
MsgBox Ctrl.Caption
End If
End If
Next Ctrl
End If
End If
End If
End If
End If
Next Ctrl_2
End Sub

il semble pas déceler les mutlipages :(

Bonjour
merci encore pour ton aide, je suis désolé mais j'ai encore un problème
la boucle ne s'arrête pas et ma colonne E donne toujours le dernier choix soit : T/S
même si ça me donne la bonne donnée dans la colonne G..J'essaie vraiment de trouver mais je ne comprends pas. Cela peut-il être à cause de ou sont placer les next Ctrl?

merci à l'avance

Sub produits()

Dim Ctrl As Control
Dim Ctrl_2 As Control
Dim i As Integer
i = 13
'Boucle sur la collection de contrôles
For Each Ctrl_2 In Me.Controls
If TypeOf Ctrl_2 Is MSForms.MultiPage Then
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then
If Ctrl.Object.Value = True Then

If MultiPage1.Pages(0).Name = "Page1" Then
Sheets(TBOX_NOMCLIENT.Value).Range("E" & i) = "F"
End If
If MultiPage1.Pages(1).Name = "Page2" Then
Sheets(TBOX_NOMCLIENT.Value).Range("E" & i) = "S"
End If
If MultiPage1.Pages(2).Name = "Page3" Then
Sheets(TBOX_NOMCLIENT.Value).Range("E" & i) = "T/F"
End If
If MultiPage1.Pages(3).Name = "Page4" Then
Sheets(TBOX_NOMCLIENT.Value).Range("E" & i) = "T/S"
End If

End If
End If
Sheets(TBOX_NOMCLIENT.Value).Range("G" & i) = Ctrl.Caption
i = i + 1
End If
End If
Next Ctrl
End If
Next Ctrl_2


End Sub

La boucle sur le multipage ne fonctionne pas. j'ai donc procédé autrement par le numéro des checkbox. Je viens juste de répondre à ce post. Je m'en suis donc servi:

https://forums.commentcamarche.net/forum/affich-35232189-test-fonction-si#5

ce qui donne:

'http://www.commentcamarche.net/forum/affich-35232189-test-fonction-si#p35237257
Dim Ctrl As Control
Dim i As Integer
Dim numero As Integer
 i = 13
If TBOX_NOMCLIENT.Text = "" Then Exit Sub
'Boucle sur la collection de contrôles
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.CheckBox Then
  If Ctrl.Object.Value = True Then
   numero = Replace(Ctrl.Name, "CheckBox", "") 'numero checkBox seul
  Select Case numero
              Case Is < 32
               Sheets(TBOX_NOMCLIENT.Text).Range("E" & i) = "F"
              Case Is < 63
               Sheets(TBOX_NOMCLIENT.Text).Range("E" & i) = "C"
               Case Is < 72
               Sheets(TBOX_NOMCLIENT.Text).Range("E" & i) = "TF"
                 Case Is < 85
                 Sheets(TBOX_NOMCLIENT.Text).Range("E" & i) = "TC"
                  End Select
           Sheets(TBOX_NOMCLIENT.Text).Range("G" & i) = Ctrl.Caption
  i = i + 1
  End If
  End If
Next Ctrl

Voilà c'est simple,

Bon Dimanche

@+ Le Pivert

merci beaucoup! ça fonctionne parfaitement, c'est génial!!!