Fermeture conditionnée userform

Question

J'ai créer u bouton annuler qui ferme le userform 
Private Sub Annulation_Click()
Unload Données_new_réf
End Sub

J'ai également créer un bouton valider qui met mes données sur un tableur excel et qui ferme le userform


Private Sub Validation_réf_Click()


Dim N As Integer
Dim i As Integer


i = 1
N = 100


Do While i < N    If Cells(i + 2, 1).Value "" And Cells(i + 2, 7).Value "" Then
    'Remplir au moins la cas réf ou fnrs pour que ça marche
        Cells(i + 2, 1).Value = Réf
        Cells(i + 2, 2).Value = CC
        Cells(i + 2, 6).Value = Pièce
        Cells(i + 2, 7).Value = Fournisseur
        Exit Do
    Else
    End If
    i = i + 1
Loop


Unload Données_new_réf


End Sub

Fermeture à partir du bouton Valider à condition qu'au moins 1 case soit remplie => d'où la condition ci-dessous 

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)


    If Réf.Value "" And Fournisseur.Value "" Then
    MsgBox "Veuillez Remplir au moins la case Référence OU la case Fournisseur"
    Cancel = 1
    End If
    
End Sub


Le problème c'est que je peux plus fermer par aucun moyen le userform avec ça à moins que je ne remplisse la condition

Help???
Roberto RIQUELME

bigfish_le vrai · Answer

Salut,

comprend pas !?! et ton bouton cancel c'est pas lobjectif de sa fonction ???

A+

cs_Joh76 · Answer

Salut,

Tu pourrais utiliser une variable public, genre Validation as boolean, qui passerait a vrai dans ta procédure Private Sub Validation_réf_Click().
Puis tu la test dans queryclose:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If Validation then       If Réf.Value "" And Fournisseur.Value "" Then
       MsgBox "Veuillez Remplir au moins la case Référence OU la case Fournisseur"
       Cancel = 1
       End If
    End if
End Sub

Cdlt

Fermeture conditionnée userform

2 réponses

Votre réponse

Discussions similaires