Private Function Val_CHK as string
Dim mesVal_ARenvoyer as string
mesVal_ARenvoyer = vbnullstring
mesVal_ARenvoyer = iif(checkbox1.value, mesVal_ARenvoyer & "1", mesVal_ARenvoyer & "0")
mesVal_ARenvoyer = iif(checkbox2.value, mesVal_ARenvoyer & "1", mesVal_ARenvoyer & "0")
mesVal_ARenvoyer = iif(checkbox3.value, mesVal_ARenvoyer & "1", mesVal_ARenvoyer & "0")
mesVal_ARenvoyer = iif(checkbox4.value, mesVal_ARenvoyer & "1", mesVal_ARenvoyer & "0")
mesVal_ARenvoyer = iif(checkbox5.value, mesVal_ARenvoyer & "1", mesVal_ARenvoyer & "0")
mesVal_ARenvoyer = iif(checkbox6.value, mesVal_ARenvoyer & "1", mesVal_ARenvoyer & "0")
...
Val_CHK = mesVal_ARenvoyer
End Function
Private Sub Userform2_QueryClose(Cancel as Boolean)
...
monParent.Retour_Data(val_CHK) 'Renvoie dans l'userform1 une variable string qui contient les valeurs des checkbox sous format binaire, 0 = false, 1 = true
...
End Sub
'Tu peux aussi utiliser la fonction ci-dessous en remplacement de la première, si tu veux une version plus textuelle
Private Function Val_CHK_Explicit as string
Dim mesVal_ARenvoyer as string
mesVal_ARenvoyer = vbnullstring
mesVal_ARenvoyer = iif(checkbox1.value, mesVal_ARenvoyer & "Checkbox1 = True" & vbcrlf, mesVal_ARenvoyer & "Checkbox1 = False" & vbcrlf)
mesVal_ARenvoyer = iif(checkbox2.value, mesVal_ARenvoyer & "Checkbox2 = True" & vbcrlf, mesVal_ARenvoyer & "Checkbox1 = False" & vbcrlf)
mesVal_ARenvoyer = iif(checkbox3.value, mesVal_ARenvoyer & "Checkbox3 = True" & vbcrlf, mesVal_ARenvoyer & "Checkbox1 = False" & vbcrlf)
mesVal_ARenvoyer = iif(checkbox4.value, mesVal_ARenvoyer & "Checkbox4 = True" & vbcrlf, mesVal_ARenvoyer & "Checkbox1 = False" & vbcrlf)
mesVal_ARenvoyer = iif(checkbox5.value, mesVal_ARenvoyer & "Checkbox5 = True" & vbcrlf, mesVal_ARenvoyer & "Checkbox1 = False" & vbcrlf)
mesVal_ARenvoyer = iif(checkbox6.value, mesVal_ARenvoyer & "Checkbox6 = True" & vbcrlf, mesVal_ARenvoyer & "Checkbox1 = False" & vbcrlf)
...
Val_CHK = mesVal_ARenvoyer
End Function