Unload userform quand je la ferme

[aurel]

Rebonjour a tous,
J'ai une erreur Active X, surement du au faite que mon userform est deja chargé et je lui redemande (mais pas sur).
Donc j'aimerai connaitre la syntaxe qui dechargera mon userform quand je la ferme avec la croix en haut a droite.

Voici le code que j'ai ecrit mais pas sur du fonctionnement:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload frmSaisi
End Sub

Merci d'avance

Aurel

 

[roro69]

Re : Unload userform quand je la ferme

Bonsoir
A essayer ce code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = False
End Sub

Bonne soirée

 

[aurel]

Re : Unload userform quand je la ferme

Bonjour roro69,
Merci de ton aide mais sa ne marche pas!
L'erreur n'est peu etre pas la!

 

[skoobi]

Re : Unload userform quand je la ferme

Bonjour,

J'ai une erreur Active X, surement du au faite que mon userform est deja chargé et je lui redemande (mais pas sur).

A quel endroit du code?
Pour le savoir, clique sur "déboguer" dans la fenêtre de l'erreur et continu la macro en pas à pas (F8) jusqu'à la ligne qui produit l'erreur et envoie le code ou mieux le fichier.

 

[aurel]

Re : Unload userform quand je la ferme

Salut a tous,

Mon erreur ce situe sur une ligne ou je charge mon user form.
load frmSaisi (frmSaisi etant le nom de mon userform).
J'esserai plus tard d'envoyer le code et/ou le fichier mais c'est pas simple.

 

[aurel]

Re : Unload userform quand je la ferme

Voici le fichier.

Pour que le bug apparaisse:
Fermer l'userform avec la croix, cliquer sur definir un conditionnement, annuler et cliquer sur lancer l'appli et ceci doit normalement recharger mon user form.

Merci d'avance.

 

[aurel]

Re : Unload userform quand je la ferme

le code d'acces au code VBA: poiuazer

 

[skoobi]

Re : Unload userform quand je la ferme

Bonjour,

Fais les modifications (en rouge) et ajout (en bleu) suivantes dans le code:

Option Explicit
[COLOR=Blue][B]Dim ferme As Boolean[/B][/COLOR]

'---------------------------------------------------------------------------------------
' Procedure_____:Trier les conditionnement en fonction des dimensions
' Date__________:13/03/08
' Auteur________: A. DELAMOTTE
' Objet_________:
........
..........

puis

.............
'faire clignoter une information
Private Sub UserForm_Activate()
    Dim temps As Single
    temps = Timer
    Do
        Do Until temps + 1 <= Timer
            DoEvents
        Loop
        If Label13.ForeColor = &H8000000F Then
            Label13.ForeColor = &HFF&
        Else
            Label13.ForeColor = &H8000000F
        End If
        temps = Timer
    Loop [B][COLOR=Blue]Until ferme[/COLOR][/B]
End Sub
..............

et enfin

Private Sub [COLOR=Red][B]UserForm[/B][/COLOR]_QueryClose(Cancel As Integer, CloseMode As Integer)
[COLOR=Blue][B]ferme = True[/B][/COLOR]
[B][COLOR=Blue]Unload Me[/COLOR][/B]
End Sub

voili voilou.