Evenement UserForm_QueryClose [Résolu/Fermé]

Signaler
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
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

1 réponse

Messages postés
12712
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 octobre 2020
704
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

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
Messages postés
12712
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 octobre 2020
704 >
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

fermer le formulaire, c'est un événement.
cliquer le bouton, c'est un autre événement.
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

merci pour vos reponses
Messages postés
12712
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 octobre 2020
704 >
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

si c'est résolu, peux-tu marquer le sujet comme résolu, via la roue dentée à droite du titre?
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

c fait