Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Bouton d'annulation sur Userform

sally-tk

XLDnaute Nouveau
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
 
Solution
Bonsoir Sally-tk et Bienvenue
Bonsoir le Fil (JM)

je ne comprends pas (mais normal y'a pas moyen de tester) Lol
ci -dessous
VB:
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

JM27

XLDnaute Barbatruc
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)
 
Dernière édition:

ChTi160

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

je ne comprends pas (mais normal y'a pas moyen de tester) Lol
ci -dessous
VB:
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

XLDnaute Nouveau
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…