Microsoft 365 Bouton d'annulation sur Userform

[sally-tk]

bonsoir à tous,

je suis débutante et je découvre encore chaque jour des nouvelles fonctionnalités en VBA.
aujourd'hui mon problème concerne l'exécution de mon UF en cas de fermeture de la boite de dialogue (sans choix)
j'ai créé un bouton d'annulation sur mon Userfom. Ce UF demande de faire un choix de jour dans la semaine à l'aide d'une liste déroulante (lundi, mardi, mercredi...) pour pouvoir exécuter ma macro.
je souhaite que ma macro ne se lance pas si on clic sur la croix en haut à droite pour quitter la boite de dialogue sans choisir de jour.

Le soucis c'est que maintenant même lorsque je choisis un jour dans mon UF ma macro ne se lance plus.

ci-dessous le codage que j'ai fait :


Private Sub ComboBox1_Change()
End Sub

Private Sub BoutonAnnule_Click()
'masque la boite dialogue
Unload Me
End
End Sub
'Userform2.Hide
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub
Private Sub CommandButton1_Click()
If Me.ComboBox1.Value <> "" Then
Me.Hide
Else
MsgBox ("Veuillez saisir un jour")
End If
End Sub

Private Sub UserForm_Initialize()
Me.ComboBox1.AddItem " "
Me.ComboBox1.AddItem "Lundi"
Me.ComboBox1.AddItem "Mardi"
Me.ComboBox1.AddItem "Mercredi"
Me.ComboBox1.AddItem "Jeudi"
Me.ComboBox1.AddItem "Vendredi"
Me.ComboBox1.AddItem "Samedi"
Me.ComboBox1.ListIndex = 0
End Sub

merci d'avance pour votre aide

 

[JM27]

Bonsoir
et bienvenue sur XLD
Pour pouvoir t'aider au plus près du fonctionnement de ton fichier , il serait bien de nous en fournir un anonymisé ( sans données confidentielles)

 

[ChTi160]

Bonsoir Sally-tk et Bienvenue
Bonsoir le Fil (JM)

je ne comprends pas (mais normal y'a pas moyen de tester) Lol
ci -dessous

Private Sub CommandButton1_Click()
If Me.ComboBox1.Value <> "" Then 'ici ca veut dire si un jour sélectionné
Me.Hide 'On ferme le Userform
Else
MsgBox ("Veuillez saisir un jour")'et si y'a pas de Jour on affiche un message
End If
End Sub

Pas très compréhensif
Mais Bon avec un fichier ça ira mieux
Bonne fin de Soirée
Jean marie

 

[sally-tk]

Bonsoir Chti160 et Jean Marie,

merci pour vos retours et en effet j'ai essayé la solution de Chti160 et ça à l'air de fonctionnée
je viens d'ajouter le test et j'ai mis une fonction "exit sub" dans ma macro lorsque que mon Combobox est vide.

merci à vous et bonne soirée

 

[ChTi160]

Re
Je n'ai rien fait lol
Juste signalé que cette procédure est bizarre.
Mais bon !
Jean marie