Private Sub CommandButton1_Click()
' Insertion dans feuille de réponse aux devis
Frde = Sheets("Rep_Devis").Range("B65536").End(xlUp).Row + 1
' Insertion de la date de la réponse
Sheets("Rep_Devis").Cells(Frde, 4) = Label5 'Date de réponse dans colonne D
' Insertion des réponses aux Optionbutton
Dim Obt As Control
For Each Obt In Frame1.Controls
If Obt.Value = 0 Then
MsgBox "Vous devez selectionner une réponse (Oui/Non)"
Else
Sheets("Rep_Devis").Cells(Frde, 5) = Obt.Caption
End If
'Exit Sub
Next
For Each Obt In Frame2.Controls
If Obt.Value = 0 Then
MsgBox "Vous devez selectionner une réponse (Accepté/Réporté/Refusé)"
Else
Sheets("Rep_Devis").Cells(Frde, 6) = Obt.Caption
End If
'Exit Sub
Next
' Insertion du nom client
Sheets("Rep_Devis").Cells(Frde, 2) = ComboBox1.Text 'Nom du client dans colonne B
' Insertion de la dete du devis
Sheets("Rep_Devis").Cells(Frde, 3) = Label8.Caption 'date du devis dans colonne C
Unload Me
End Sub