Bloquer fermeture user form si aucun choix n'a été fait dans une liste d'option buton

  • Initiateur de la discussion Initiateur de la discussion Zoub
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Zoub

XLDnaute Nouveau
Bonjour a tous,

je suis en train de créer un petit programme où j'ouvre successivment 3 userform surlesquels l'utilisateur doit saisir des infos que je reporte ensuite sur excel

J'ai un user form sur lequel figure une liste composée de 4 optionbutton.

Le passage d'un user form a l'autre se fait en cliquant sur le bouton.
Je souhaiterai bloquer la fermeture de l'user form si aucun choix n'a été effectué dans la liste d'option button et faire apparaitre un msg pour prévenir l'utilisateur. pour le moment je sèche j'ai essayé le programme ci dessous

Private Sub CommandButton1_Click()


If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False And OptionButton4.Value = False Then
MsgBox ("Merci de choisir une possibilité dans la liste de choix sur la variabilité des consomamtions")
End
End If



Sheets("Stock Sécurité").Visible = True
Sheets("Stock Sécurité").Select
ActiveSheet.Unprotect

n = Range("Aj1").Value - 1

Range(Cells(n, 4), Cells(n, 4)) = TextBox1.Value
Range(Cells(n, 6), Cells(n, 6)) = TextBox5.Value
Range(Cells(n, 11), Cells(n, 11)) = TextBox6.Value
Range(Cells(n, 5), Cells(n, 5)) = TextBox2.Value
Range(Cells(n, 12), Cells(n, 12)) = TextBox7.Value
Range(Cells(n, 13), Cells(n, 13)) = TextBox8.Value

Me.Hide

SS_Infos_prev.TextBox5 = 100
SS_Infos_prev.Show

End Sub


mon soucis vient du fait que le pgme est complètement coupé alors que je souhaite juste prévenir l'utilisateur et l'empecher d'aller plus loin.

Merci d'avance pour vos réponses
 

Pièces jointes

  • pgme.jpg
    pgme.jpg
    30.2 KB · Affichages: 104
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour