userform et croix rouge

Le
Nyck0las
Bonjour,

Comment puis-je faire pour utiliser la petite croix rouge en haut à
droite d'un userform ?
Je voudrais lui dire de quitter ma macro si jamais on clique dessus.

merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5188051
Bonjour.
Utilise l'évènement :
UserForm_Terminate
Cordialement.
Daniel
"Nyck0las"
Bonjour,

Comment puis-je faire pour utiliser la petite croix rouge en haut à
droite d'un userform ?
Je voudrais lui dire de quitter ma macro si jamais on clique dessus.

merci
Nyck0las
Le #5188031
çà marche pas :-(

la macro s'arrete alors que je n'ai pas cliqué sur fermer ...
Daniel.C
Le #5188011
Pas compris. Poste ton code.
Daniel
"Nyck0las"
çà marche pas :-(

la macro s'arrete alors que je n'ai pas cliqué sur fermer ...
Nyck0las
Le #5187961
voici un des userform que j'utilise :

Private Sub userForm_Initialize()

Rd_OD = True

Pourcent = Pct
Pourcent.Locked = True

Seuil = SCpl
Seuil.Locked = True

With Spin_P
.min = 0
.Max = 100
.SmallChange = 1
End With

With Spin_S
.min = 0
.Max = 100
.SmallChange = 1
End With

End Sub

Private Sub Spin_P_Change()
Pourcent = Spin_P.Value
End Sub

Private Sub Spin_S_Change()
Seuil = Spin_S.Value
End Sub

Private Sub Pourcent_Change()
Dim NewVal As Integer
NewVal = val(Pourcent.Text)
If NewVal >= Spin_P.min And NewVal <= Spin_P.Max Then Spin_P.Value
= NewVal
End Sub

Private Sub Seuil_Change()
Dim NewVal As Integer
NewVal = val(Seuil.Text)
If NewVal >= Spin_S.min And NewVal <= Spin_S.Max Then Spin_S.Value
= NewVal
End Sub

Private Sub OK_Click()
Unload ChxParam
Pct = val(Pourcent.Text)
SCpl = val(Seuil.Text)
If Rd_OD = True Then
Mode_Reduc = "On demand"
ElseIf Rd_A = True Then
Mode_Reduc = "Auto"
ElseIf Rd_N = True Then
Mode_Reduc = "None"
End If
End Sub


Ce que je souhaiterais, c'est que lorsque je clique sur la petite
croix rouge de l'userform, je quitte la macro toute entière.
Ce qui reviendrait à un truc du type :

Private Sub Croix_Rouge_Click()
End
End Sub

or si je mets un truc de ce type :

Private Sub UserForm_Terminate()
end
End Sub

même quand je clique sur ok, tout s'arrete
Daniel.C
Le #5187941
Si ton userform s'appelle ChxParam,
tu écris :
Private Sub userForm_Initialize()
teste=0
...

Private Sub Croix_Rouge_Click()
teste=1
End Sub
Private Sub OK_Click()
if teste=1 then
end
else
....
end if
Daniel
"Nyck0las"
voici un des userform que j'utilise :

Private Sub userForm_Initialize()

Rd_OD = True

Pourcent = Pct
Pourcent.Locked = True

Seuil = SCpl
Seuil.Locked = True

With Spin_P
.min = 0
.Max = 100
.SmallChange = 1
End With

With Spin_S
.min = 0
.Max = 100
.SmallChange = 1
End With

End Sub

Private Sub Spin_P_Change()
Pourcent = Spin_P.Value
End Sub

Private Sub Spin_S_Change()
Seuil = Spin_S.Value
End Sub

Private Sub Pourcent_Change()
Dim NewVal As Integer
NewVal = val(Pourcent.Text)
If NewVal >= Spin_P.min And NewVal <= Spin_P.Max Then Spin_P.Value
= NewVal
End Sub

Private Sub Seuil_Change()
Dim NewVal As Integer
NewVal = val(Seuil.Text)
If NewVal >= Spin_S.min And NewVal <= Spin_S.Max Then Spin_S.Value
= NewVal
End Sub

Private Sub OK_Click()
Unload ChxParam
Pct = val(Pourcent.Text)
SCpl = val(Seuil.Text)
If Rd_OD = True Then
Mode_Reduc = "On demand"
ElseIf Rd_A = True Then
Mode_Reduc = "Auto"
ElseIf Rd_N = True Then
Mode_Reduc = "None"
End If
End Sub


Ce que je souhaiterais, c'est que lorsque je clique sur la petite
croix rouge de l'userform, je quitte la macro toute entière.
Ce qui reviendrait à un truc du type :

Private Sub Croix_Rouge_Click()
End
End Sub

or si je mets un truc de ce type :

Private Sub UserForm_Terminate()
end
End Sub

même quand je clique sur ok, tout s'arrete
Daniel.C
Le #5187901
Faut affiner.
Dans un module :
Public teste
Private Sub userForm_Initialize()
teste=0
...
Private Sub Userform_Terminate()
if teste = 0 then end
End Sub
Private Sub OK_Click()
teste = 1
...
Daniel
"Daniel.C" %
Si ton userform s'appelle ChxParam,
tu écris :
Private Sub userForm_Initialize()
teste=0
...

Private Sub Croix_Rouge_Click()
teste=1
End Sub
Private Sub OK_Click()
if teste=1 then
end
else
....
end if
Daniel
"Nyck0las"
voici un des userform que j'utilise :

Private Sub userForm_Initialize()

Rd_OD = True

Pourcent = Pct
Pourcent.Locked = True

Seuil = SCpl
Seuil.Locked = True

With Spin_P
.min = 0
.Max = 100
.SmallChange = 1
End With

With Spin_S
.min = 0
.Max = 100
.SmallChange = 1
End With

End Sub

Private Sub Spin_P_Change()
Pourcent = Spin_P.Value
End Sub

Private Sub Spin_S_Change()
Seuil = Spin_S.Value
End Sub

Private Sub Pourcent_Change()
Dim NewVal As Integer
NewVal = val(Pourcent.Text)
If NewVal >= Spin_P.min And NewVal <= Spin_P.Max Then Spin_P.Value
= NewVal
End Sub

Private Sub Seuil_Change()
Dim NewVal As Integer
NewVal = val(Seuil.Text)
If NewVal >= Spin_S.min And NewVal <= Spin_S.Max Then Spin_S.Value
= NewVal
End Sub

Private Sub OK_Click()
Unload ChxParam
Pct = val(Pourcent.Text)
SCpl = val(Seuil.Text)
If Rd_OD = True Then
Mode_Reduc = "On demand"
ElseIf Rd_A = True Then
Mode_Reduc = "Auto"
ElseIf Rd_N = True Then
Mode_Reduc = "None"
End If
End Sub


Ce que je souhaiterais, c'est que lorsque je clique sur la petite
croix rouge de l'userform, je quitte la macro toute entière.
Ce qui reviendrait à un truc du type :

Private Sub Croix_Rouge_Click()
End
End Sub

or si je mets un truc de ce type :

Private Sub UserForm_Terminate()
end
End Sub

même quand je clique sur ok, tout s'arrete




Publicité
Poster une réponse
Anonyme