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

[Zoub]

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

 

[phlaurent55]

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

Bonjour Zoub, et bienvenue sur le forum

un exemple en pièce jointe

à+
Philippe

 

[Robert]

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

Bonjor Zoub et bienvenu, Philippe, bonjour le forum,

Remplace End par Exit Sub...

 

[Zoub]

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

Super c'est exactement ce qu'il me fallait merci beaucoup pour cette réponse rapide

Bonne journée

 

[Zoub]

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

les 2 solutions fonctionnent
merci a vous 2 je vais pouvoir continuer a avancer