Evenement UserForm_QueryClose [Résolu]

Messages postés
161
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
10 octobre 2019
- - Dernière réponse : blalaa
Messages postés
161
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
10 octobre 2019
- 20 sept. 2019 à 10:11
Bonjour

y a un evenement qui se declanche a chaque fois que je ferme mon USERFORM
je souhaiterais que cet evenement se declanche par un clique sur un bouton au lieu de cliquer sur la croix de USERFORM

voici le code
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = 0 Then
ThisWorkbook.Sheets("CONFIG").Cells(4, 2).Value2 = Carburant.Text
If ThisWorkbook.Sheets("CONFIG").Cells(ligne_mot, 2).Value2 = vbNullString _
Or ThisWorkbook.Sheets("CONFIG").Cells(3, 2).Value2 = vbNullString _
Or ThisWorkbook.Sheets("CONFIG").Cells(2, 10).Value2 = vbNullString Then
Cancel = 1
MsgBox ("Veuillez remplir tous les champs svp.")
End If
End If

End Sub



j'ai essayer de appele cet evenement a partir dun bouton mais ca ne marche pas
Private Sub CommandButton1_Click()
UserForm_QueryClose
End Sub


y a til un moyen de le faire ?

je vous remercie d'avance pour votre aide
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
8699
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 octobre 2019
433
1
Merci
bonjour,
merci d'utiliser le type de code "basic" quand tu partages du VBA.
"ca ne marche pas": que peux-tu nous dire de plus?
l’événement, c'est la fermeture du formulaire ou le clic d'un bouton.
tu souhaites probablement exécuter certaines actions suite à l’événement clic sur le bouton, et tu n'expliques pas lesquelles.
suggestion:
Private Sub CommandButton1_Click()
ThisWorkbook.Sheets("CONFIG").Cells(4, 2).Value2 = Carburant.Text
If ThisWorkbook.Sheets("CONFIG").Cells(ligne_mot, 2).Value2 = vbNullString _
    Or ThisWorkbook.Sheets("CONFIG").Cells(3, 2).Value2 = vbNullString _
    Or ThisWorkbook.Sheets("CONFIG").Cells(2, 10).Value2 = vbNullString Then
    MsgBox ("Veuillez remplir tous les champs svp.")
End If
End Sub

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 62597 internautes nous ont dit merci ce mois-ci

blalaa
Messages postés
161
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
10 octobre 2019
-
une question
c quoi la difference entre ce bouton et l'evenelent ?
est ce que il y 'aurra un impact sur mon code ou nn
merci
yg_be
Messages postés
8699
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 octobre 2019
433 > blalaa
Messages postés
161
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
10 octobre 2019
-
fermer le formulaire, c'est un événement.
cliquer le bouton, c'est un autre événement.
blalaa
Messages postés
161
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
10 octobre 2019
-
merci pour vos reponses
yg_be
Messages postés
8699
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 octobre 2019
433 > blalaa
Messages postés
161
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
10 octobre 2019
-
si c'est résolu, peux-tu marquer le sujet comme résolu, via la roue dentée à droite du titre?
blalaa
Messages postés
161
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
10 octobre 2019
-
c fait
Commenter la réponse de yg_be