Evenement UserForm_QueryClose

Résolu
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention   -  
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour

merci pour votre reponse

je n'ai pas pense a ca
ca mas resolu mon probleme
0
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention  
 
fermer le formulaire, c'est un événement.
cliquer le bouton, c'est un autre événement.
0
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention  
 
merci pour vos reponses
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention  
 
si c'est résolu, peux-tu marquer le sujet comme résolu, via la roue dentée à droite du titre?
0