Optionbuttons

Sub testcol()
Dim d, f, i, j, c
ecart = 5
For i = 1 To 7
d = 0 & i & "01": f = 0 & i & "05"
For j = d To f
c = 0
For Each Ctrl In Me("Frame" & j).Controls
c = c + 1
If Ctrl.Value = True Then Exit For
Next Ctrl
c = c - 1
Col = ecart * Right(j, 1) + c
Next j
Next i
End Sub

Cliquez pour agrandir...

Private Sub CommandButton3_Click()
Dim qu As Integer, h As Integer, choix As Integer
Dim nomFrame As String
Dim Ctrl As Control, opt As Control
Dim Ligne As Long, Col As Integer, Cel As Range
Dim d, f, i, j, c, ecart, k

If VerifOption = False Then
If MsgBox(" il reste des questions sans réponse voulez vous y répondre ?", vbQuestion + vbYesNo, "Pas fini ?") = vbYes Then Exit Sub
End If

With Sheets("Circulations Horizontales")
Set Cel = .Columns("D").Find(what:=Me.TextBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then

Ligne = Cel.Row
ecart = 4: k = 3
For i = 1 To 7
Col = 0
d = 0 & i & "01": f = 0 & i & "05"
For j = d To f
c = Right(j, 1)
For Each Ctrl In Me("Frame" & Format(j, "0000")).Controls
If Ctrl.Value = True Then
choix = Right(Ctrl.Name, 1)
Col = ecart + c
.Cells(Ligne, Col).Value = choix
Exit For
End If
Next Ctrl
Next j
ecart = ecart + 6
.Cells(Ligne, Col + 1).Value = Me("TextBox" & k).Value
k = k + 1
Next i

.Cells(Ligne, 47).Value = Me.TextBox2.Value

End If
End With
Lavage
End Sub

Cliquez pour agrandir...