Message si optionbutton non coché

[davidp]

Bonjour le forum,

je me permets de vous solliciter pour un problème que je n'arrive pas à résoudre.
j'ai cree un userform ou l'utilisateur doit renseigner 2 textbox + choisir une option (1 sur 3 possibles), malheureusement , certains utilisateurs ne renseignent pas tous les champs.

Serait il possible de creer un message d'erreur si les conditions ci dessus ne sont pas réunit?

Merci d'avance pour celui qui pourra m'aider

je ne suis pas pressé

DAVIDP

 

[filiph79]

Re : Message si optionbutton non coché

bonjour daviddp,

a essayer mais il doit y avoir plus pro...
If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False Or TextBox1.Value = "" Or TextBox2.Value = "" Then

MsgBox "vous devez cocher un bouton et remplir les 2 zones de texte"

End If

 

[BERRACHED said]

Re : Message si optionbutton non coché

Saluttous le Monde

teste ce code :

Private Sub CommandButton1_Click()
Dim CtrlArray As Variant
Dim Test As Byte
Dim Alert As Byte
' ici un test en boucle pour être sûr que les options sont bien coché
For Each CtrlArray In Array(OptionButton1, OptionButton2, OptionButton3)
                            
If CtrlArray.Value = False Or TextBox1.Value = "" Or TextBox2.Value = "" Then
  Test = Test + 1

        If Test = 5 Then Exit Sub 'si aucun enregistrement on arrête le traitement
        
        If Test > 0 Then
        Alert = MsgBox("Une ou plusieurs option n'est pas renseignée." & vbCrLf & _
               "Voulez vous poursuivre l'ajout dans la base de donnée .", vbQuestion + vbYesNo, T)
                If Alert = vbNo Then Exit Sub ' si on répond non on sort
        End If
      
       'la Suite de votre Procédure
       End If
       Next
End Sub

Cordialement

 

[davidp]

Re : Message si optionbutton non coché

Bonjour,


Un grand merci à tous les 2,

je n'aurai jamais trouver tout seul , je vais mettre tout cela en pratique demain matin ,je vous tiens au courant, attendant .

Un grand MERCI

Bonne journée

DAVIDP