Arnaud dit Citro
XLDnaute Junior
Bonjour à tous,
Je voudrais rendre un choix obligatoire d'Optionbutton dans un formulaire, mais je ne veux pas qu'il quitte le formulaire tant qu'il n'y a pas de réponse.
J'ai donc insérer un code qui sur le fond fonctionne, mais pas du tout sur la forme, cela me met 2 fois le message de non remplissage (même si il y a une réponse) :
Je joins le fichier, c'est sur l'userform4 que cela pose problème.
Si vous avez une solution à mon soucis, cela m'aiderait vraiment.
Bonne journée à tous
Arnaud
Je voudrais rendre un choix obligatoire d'Optionbutton dans un formulaire, mais je ne veux pas qu'il quitte le formulaire tant qu'il n'y a pas de réponse.
J'ai donc insérer un code qui sur le fond fonctionne, mais pas du tout sur la forme, cela me met 2 fois le message de non remplissage (même si il y a une réponse) :
VB:
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
Je joins le fichier, c'est sur l'userform4 que cela pose problème.
Si vous avez une solution à mon soucis, cela m'aiderait vraiment.
Bonne journée à tous
Arnaud